From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 22 Sep 2007 15:05:30 +0000 (+0100)
Subject: fix crash on K record
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b7127419df6c476114a6620e9d4af0a70748245;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;