remove typo in dxprothandle

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ca9b49226d0ec6d8365aac4de77bd7df89fa2f7b..fae6dde07acb9e129179fc68d00063da0b9b4e0b 100644 (file)
--- 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);
        }
 }