X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FHello.pm;h=7221d7898722fc58dd15a451b388211d5ada13fd;hb=8793642e3c927cbd8ef80e7fc1f35f3a62b8f0d8;hp=b1af92d14990829dd8a11afcee88398901a526e5;hpb=17ba4b39d764044cc789f5cdab84eb801dc482fb;p=spider.git

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index b1af92d1..7221d789 100644
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -67,6 +67,7 @@ sub handle
 	if ($v) {
 		$v = $DXProt::myprot_version + int ($v*100) if $v > 2 && $v < 3;
 		$v = $DXProt::myprot_version + 150 unless $v >= 5400;
+		$v =~ s/\.\d+$//;
 		$thing->{pcv} = $v;
 	}