From 12afd4e8f47b51188f9d23006dcd4b5fb8350530 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 14 Jan 2007 23:00:16 +0000
Subject: [PATCH] get regex for pc9[2] right in handle_18

---
 perl/DXProtHandle.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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+$/;
-- 
2.43.0