From e38d19c30260593ff48d3edcd209f781030c671e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 23 Jun 2007 23:12:32 +0100 Subject: [PATCH] if node is isolated, stay in old protocol --- 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 99eb71d2..51585f01 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -615,7 +615,7 @@ sub handle_18 $self->sort('S'); } # $self->{handle_xml}++ if DXXml::available() && $_[1] =~ /\bxml/; - if ($_[1] =~ /\bpc9x/) { + if (!$self->{isolate} && $_[1] =~ /\bpc9x/) { $self->{do_pc9x} = 1; dbg("Do px9x set on $self->{call}"); } diff --git a/perl/Version.pm b/perl/Version.pm index 8816fa97..d4abfda3 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 = '71'; +$build = '72'; 1; -- 2.43.0