X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProt.pm;h=360bb2dd2392c602e788a42e77edee9b0411f4aa;hp=e7fdff9003fab04001479a32ff916e62689d045d;hb=654d1e3fc78d2df849ad00a02ccba832bb222e23;hpb=371ff8b270a1377321c2793917656c8c53aaba50 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);