From 160c90fff497dede4733d3e2752ebe5f4c1ee279 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 15 Jun 2007 14:36:29 +0100 Subject: [PATCH 1/1] fix problem recognising new buildnos in PC18 --- perl/DXProtHandle.pm | 2 +- perl/Version.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index cc223148..d6ae6cfa 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -596,7 +596,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); diff --git a/perl/Version.pm b/perl/Version.pm index 78372f27..37df5511 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -10,6 +10,6 @@ package main; use vars qw($version $build); $version = '1.54'; -$build = '36'; +$build = '37'; 1; -- 2.43.0