pass the correct line to PCProt

[spider.git] / perl / QXProt.pm

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;
-       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) = $line =~ /^PC(\d\d)/;
        if ($pcno) {
-               DXProt::normal($self, $l);
+               $line =~ s/^[\x\x]$//;
+               DXProt::normal($self, $line);
        }
 }