fix lvalue

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