From: Dirk Koopman Date: Sat, 22 Sep 2007 15:05:30 +0000 (+0100) Subject: fix crash on K record X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b7127419df6c476114a6620e9d4af0a70748245;hp=9f4c467f60ec71c0bbb2b27f91ca7d86a40b4597;p=spider.git fix crash on K record --- 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; diff --git a/perl/Version.pm b/perl/Version.pm index b75aaed4..5639020b 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '147'; +$build = '148'; 1;