From eed4648da2421ce33c3679fa2cd1519eed6c2e45 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 21 Jan 2003 16:32:06 +0000 Subject: [PATCH] pass the correct line to PCProt --- perl/QXProt.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl/QXProt.pm b/perl/QXProt.pm index b0d9a167..41b34d6f 100644 --- 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); } } -- 2.43.0