fix crash on K record

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 96e62c707f1684d85860361782e567c88c14aa09..5234cdab93a071546c3aee179cc35623e1768f50 100644 (file)
--- 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 b75aaed4aa6a3f6ddb06c5696ef378bcd3460f5e..5639020b6462a1745897a8c5ba1d84bbbec3ec09 100644 (file)
--- 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;