fix crash on K record

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 96e62c707f1684d85860361782e567c88c14aa09..5234cdab93a071546c3aee179cc35623e1768f50 100644 (file)
--- 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;