From 654d1e3fc78d2df849ad00a02ccba832bb222e23 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 15 Jun 2007 15:01:26 +0100 Subject: [PATCH] merge in build no fix to PC18 from SIMPLEROUTE again --- perl/DXProt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index e7fdff90..360bb2dd 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -963,7 +963,7 @@ sub handle_18 $self->state('init'); # record the type and version offered - if ($_[1] =~ /DXSpider Version: (\d+\.\d+) Build: (\d+\.\d+)/) { + if ($_[1] =~ /DXSpider Version: (\d+\.\d+) Build: (\d+(?:\.\d+)?)/) { $self->version(53 + $1); $self->user->version(53 + $1); $self->build(0 + $2); -- 2.34.1