From: Dirk Koopman Date: Fri, 15 Jun 2007 13:36:29 +0000 (+0100) Subject: fix problem recognising new buildnos in PC18 X-Git-Tag: 1.55~160^2~10 X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=160c90fff497dede4733d3e2752ebe5f4c1ee279;hp=94e76dad0019a02d1bcea6a3d3396b1db046b8c3;p=spider.git fix problem recognising new buildnos in PC18 --- 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;