From 8793642e3c927cbd8ef80e7fc1f35f3a62b8f0d8 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 11 Mar 2005 22:47:30 +0000 Subject: [PATCH] make sure a fractional version is not propagated on --- perl/Thingy/Hello.pm | 1 + 1 file changed, 1 insertion(+) 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; } -- 2.43.0