From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 23 Jun 2007 23:10:05 +0000 (+0100)
Subject: actually commit the set/isolate patch!
X-Git-Tag: 1.55~139
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=460c05b504a1d353011f6e5794e1f66359fcc2b6

actually commit the set/isolate patch!
---

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;