From 12afd4e8f47b51188f9d23006dcd4b5fb8350530 Mon Sep 17 00:00:00 2001 From: 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