X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=01b64372b8d4d1cf55847b76d229fea3b65e984c;hb=61cdf7dc2b72c1898850a4d2aa403d712f22f8ee;hp=eb3933ea586d6654b72aea127792e685b325f22b;hpb=bd67cc5f4c14f9bb80e609bb971f0a4dd7c44197;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index eb3933ea..01b64372 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -120,8 +120,11 @@ sub start
 sub normal
 {
 	my ($self, $line) = @_;
-	my @field = split /[\^\~]/, $line;
+	my @field = split /\^/, $line;
+	pop @field if $field[-1] eq '~';
 	
+#	print join(',', @field), "\n";
+						
 	# ignore any lines that don't start with PC
 	return if !$field[0] =~ /^PC/;