From 60d6599887f29ec966d075f413c2c73b9e913212 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 1 Jan 2007 15:44:43 +0000 Subject: [PATCH] fix version no encoding --- perl/DXProtHandle.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index b8effe39..045204db 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1259,7 +1259,7 @@ sub _encode_pc92_call # if ($ref->version || $ref->build) { if ($ref->version) { my $version = $ref->version || 1.0; - $version = $version * 100 + 5300; + $version = $version * 100 + 5300 if $version > 50; $extra .= ":" . $version; # $extra .= (":" . ($ref->build ? $ref->build : '')) if $ref->build; } -- 2.43.0