From eed4648da2421ce33c3679fa2cd1519eed6c2e45 Mon Sep 17 00:00:00 2001
From: minima <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.34.1