From 2b7127419df6c476114a6620e9d4af0a70748245 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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