From f09464a2adc21df62f4e46d59fb6d1eade02121e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 22 Sep 2007 20:21:06 +0100 Subject: [PATCH] fix K crash --- perl/DXProtHandle.pm | 2 +- perl/Version.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; -- 2.43.0