X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProt.pm;fp=perl%2FDXProt.pm;h=fae6dde07acb9e129179fc68d00063da0b9b4e0b;hp=ca9b49226d0ec6d8365aac4de77bd7df89fa2f7b;hb=03a8ba6249b112d16840f8c6f7bf2f5707dee664;hpb=4ed6b6d9556b4252b012766043c65dce1ed55f0c

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ca9b4922..fae6dde0 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -430,9 +430,9 @@ sub normal
 	my $sub = "handle_$pcno";
 
 	if ($self->can($sub)) {
-		$self->$sub($pcno, $line, $origin, @field);
+		$self->$sub($pcno, $line, $origin, \@field);
 	} else {
-		$self->handle_default($pcno, $line, $origin, @field);
+		$self->handle_default($pcno, $line, $origin, \@field);
 	}
 }