From 8793642e3c927cbd8ef80e7fc1f35f3a62b8f0d8 Mon Sep 17 00:00:00 2001
From: minima <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.34.1