fix c=carsh

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index e028aa40eebdccc9f0bdf96d25b5d83f5ebd3d8b..802b9914d5019d961fbc25fd536de237f1c87505 100644 (file)
--- 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));
        }