From: minima <minima>
Date: Mon, 1 Jan 2007 15:40:24 +0000 (+0000)
Subject: fix lvalue
X-Git-Tag: 1.54~85
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=b58940e88b60bbe34fef1a8c7ab10207769674a3;p=spider.git

fix lvalue
---

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));
 	}