X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=045204db1698ba349f7d7a065d5bb8946ffd797d;hb=60d6599887f29ec966d075f413c2c73b9e913212;hp=e028aa40eebdccc9f0bdf96d25b5d83f5ebd3d8b;hpb=ed6790555f077eb521b8805113155a2ff99cc47e;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index e028aa40..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;
 		}
@@ -1297,7 +1297,7 @@ sub handle_92
 			dbg("PCPROT: dup / old id <= $lastid, ignored") if isdbg('chanerr');
 			return;
 		}
-		$nref->flags = Route::flags($here);
+		$nref->flags(Route::flags($here));
 	} else {
 		$nref = Route::Node->new($ncall, $version, Route::here($here));
 	}