X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FHello.pm;h=7221d7898722fc58dd15a451b388211d5ada13fd;hb=d3589d92023a27928cfa4bc7cca8778a589ed58b;hp=b1af92d14990829dd8a11afcee88398901a526e5;hpb=0c5ba14533787430381b46739575d876cd1186ba;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;
 	}