From: minima Date: Sun, 19 Jan 2003 01:49:25 +0000 (+0000) Subject: fix brackets X-Git-Tag: PRE-1-52~85 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=169940ee254d0a1a014a62dae12a8fbebc4e2fda;p=spider.git fix brackets --- 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