X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=5234cdab93a071546c3aee179cc35623e1768f50;hb=f09464a2adc21df62f4e46d59fb6d1eade02121e;hp=96e62c707f1684d85860361782e567c88c14aa09;hpb=b616b2bf1123af004983b1217bf682243827327f;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;