From b58940e88b60bbe34fef1a8c7ab10207769674a3 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 1 Jan 2007 15:40:24 +0000
Subject: [PATCH] fix lvalue

---
 perl/DXProtHandle.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index e028aa40..b8effe39 100644
--- 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));
 	}
-- 
2.34.1