X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=802b9914d5019d961fbc25fd536de237f1c87505;hb=e8c9de4454a23bab71b5a06d2e0059877f02413d;hp=b8effe395388bde7cb1d84b942ab01a3b2c2f250;hpb=b58940e88b60bbe34fef1a8c7ab10207769674a3;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index b8effe39..802b9914 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;
 		}