projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f70b281
)
pass the correct line to PCProt
author
minima
<minima>
Tue, 21 Jan 2003 16:32:06 +0000
(16:32 +0000)
committer
minima
<minima>
Tue, 21 Jan 2003 16:32:06 +0000
(16:32 +0000)
perl/QXProt.pm
patch
|
blob
|
history
diff --git
a/perl/QXProt.pm
b/perl/QXProt.pm
index b0d9a167eedc6e886ba8ce6abc3786b6814833d1..41b34d6f2eacc03ca4a5d5b9f85c980b7bc62c64 100644
(file)
--- a/
perl/QXProt.pm
+++ b/
perl/QXProt.pm
@@
-220,12
+220,12
@@
sub genP
sub handleX
{
my $self = shift;
sub handleX
{
my $self = shift;
- my ($tonode, $fromnode, $msgid, $line) = @_[0..3];
- my ($origin, $l) = split /\^/, $line, 2;
+ my ($sort, $to, $from, $msgid, $origin, $line) = split /\^/, $_[3], 6;
- my ($pcno) = $l =~ /^PC(\d\d)/;
+ my ($pcno) = $l
ine
=~ /^PC(\d\d)/;
if ($pcno) {
if ($pcno) {
- DXProt::normal($self, $l);
+ $line =~ s/^[\x\x]$//;
+ DXProt::normal($self, $line);
}
}
}
}