From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 22 Sep 2007 19:21:06 +0000 (+0100)
Subject: fix K crash
X-Git-Tag: 1.55~66
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=f09464a2adc21df62f4e46d59fb6d1eade02121e

fix K crash
---

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..b8d30dd6 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 = '149';
 
 1;