From 2b7127419df6c476114a6620e9d4af0a70748245 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 22 Sep 2007 16:05:30 +0100 Subject: [PATCH] fix crash on K record --- 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..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; -- 2.43.0