From 169940ee254d0a1a014a62dae12a8fbebc4e2fda Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 19 Jan 2003 01:49:25 +0000
Subject: [PATCH] fix brackets

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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 095b1305..3ef7b075 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -645,7 +645,7 @@ sub normal
 			# if there is a parent, proceed, otherwise if there is a latent PC19 in the PC19list, 
 			# fix it up in the routing tables and issue it forth before the PC16
 			unless ($parent) {
-				if (my $nl = $pc19list{$ncall} && @field > 2) {
+				if (my ($nl = $pc19list{$ncall}) && @field > 2) {
 
 					# this is a new (remembered) node, now attach it to me if it isn't in filtered
 					# and we haven't disallowed it
-- 
2.34.1