From: minima <minima>
Date: Sun, 14 Jan 2007 23:00:16 +0000 (+0000)
Subject: get regex for pc9[2] right in handle_18
X-Git-Tag: 1.54~45
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=12afd4e8f47b51188f9d23006dcd4b5fb8350530

get regex for pc9[2] right in handle_18
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 422b1714..241b7c3a 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -605,9 +605,9 @@ sub handle_18
 			$self->user->put;
 			$self->sort('S');
 		}
-		$self->{handle_xml}++ if DXXml::available() && $_[1] =~ /\bxml\b/;
-		my ($pc9x) = $_[1] =~ /\bpc9\[(\d+)\]\b/;
-		$self->{do_pc92}++ if (defined $pc9x && $pc9x =~ /2/) || $_[1] =~ /\bpc92\b/;
+		$self->{handle_xml}++ if DXXml::available() && $_[1] =~ /\bxml/;
+		my ($pc9x) = $_[1] =~ /\bpc9\[(\d+)\]/;
+		$self->{do_pc92}++ if defined $pc9x && $pc9x =~ /2/;
 	} else {
 		$self->version(50.0);
 		$self->version($_[2] / 100) if $_[2] && $_[2] =~ /^\d+$/;