From 460c05b504a1d353011f6e5794e1f66359fcc2b6 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 24 Jun 2007 00:10:05 +0100
Subject: [PATCH] actually commit the set/isolate patch!

---
 perl/DXProtHandle.pm | 10 +++++++---
 perl/Version.pm      |  2 +-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 51585f01..e1b31baf 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -615,9 +615,13 @@ sub handle_18
 			$self->sort('S');
 		}
 #		$self->{handle_xml}++ if DXXml::available() && $_[1] =~ /\bxml/;
-		if (!$self->{isolate} && $_[1] =~ /\bpc9x/) {
-			$self->{do_pc9x} = 1;
-			dbg("Do px9x set on $self->{call}");
+		if ($_[1] =~ /\bpc9x/) {
+			if ($self->{isolate}) {
+				dbg("pc9x recognised, but is isolated, using old protocol");
+			} else {
+				$self->{do_pc9x} = 1;
+				dbg("Do px9x set on $self->{call}");
+			}
 		}
 	} else {
 		dbg("Unknown software");
diff --git a/perl/Version.pm b/perl/Version.pm
index 7c702ce1..87cfd674 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 = '75';
+$build = '76';
 
 1;
-- 
2.34.1