X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=e1b31bafbdf50ee15b27b46e7ee83f92ffc446ed;hb=460c05b504a1d353011f6e5794e1f66359fcc2b6;hp=51585f01facee34ea0e1cabc536132d9c1bafaa6;hpb=ac50e257915950df8af50b2fec79bfbcc721a874;p=spider.git 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");