make sure a fractional version is not propagated on

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index b1af92d14990829dd8a11afcee88398901a526e5..7221d7898722fc58dd15a451b388211d5ada13fd 100644 (file)
--- 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;
        }