X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;fp=perl%2FDXProtHandle.pm;h=5234cdab93a071546c3aee179cc35623e1768f50;hb=66c58b99fabc3b52b5f9c59f193976c3fc7e5791;hp=96e62c707f1684d85860361782e567c88c14aa09;hpb=bdca552e807c5599317c08b7c54e993e43bfcaec;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 96e62c70..5234cdab 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1655,7 +1655,7 @@ sub handle_92
 		if (@ent) {
 			my $add;
 
-			($parent, $add) = $self->pc92_handle_first_slot($ent[0], $parent, $t);
+			($parent, $add) = $self->pc92_handle_first_slot(\@ent, $parent, $t);
 			return unless $parent; # dupe
 
 			push @radd, $add if $add;