From: minima <minima>
Date: Fri, 11 Mar 2005 22:47:30 +0000 (+0000)
Subject: make sure a fractional version is not propagated on
X-Git-Tag: R_1_52~93
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=8793642e3c927cbd8ef80e7fc1f35f3a62b8f0d8

make sure a fractional version is not propagated on
---

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;
 	}