From 460c05b504a1d353011f6e5794e1f66359fcc2b6 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0