From: minima Date: Tue, 22 Feb 2005 15:17:38 +0000 (+0000) Subject: fix syntax errors X-Git-Tag: R_1_52~170 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4fc210b748591e07ec7a862e29e14c535975de27;p=spider.git fix syntax errors --- diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index 5242259c..fe018855 100644 --- a/perl/Thingy/Rt.pm +++ b/perl/Thingy/Rt.pm @@ -86,15 +86,16 @@ sub handle_cf } # do nodes - my ($del, $add) + my ($del, $add); + my %in; if ($thing->{n}) { - my %in = (map {my ($here, $call) = unpack "A1 A*", $_; ($call, $here)} split /:/, $thing->{n}); + %in = (map {my ($here, $call) = unpack("A1 A*", $_); ($call, $here)} split /:/, $thing->{n}); my ($tdel, $tadd) = $parent->diff_nodes(keys %in); $add = $tadd; $del = $tdel; } if ($thing->{a}) { - my %in = (map {my ($here, $call) = unpack "A1 A*", $_; ($call, $here)} split /:/, $thing->{a}); + %in = (map {my ($here, $call) = unpack("A1 A*", $_); ($call, $here)} split /:/, $thing->{a}); my ($tdel, $tadd) = $parent->diff_nodes(keys %in); push @$add, @$tadd; push @$del, @$tdel; @@ -121,7 +122,7 @@ sub handle_cf # now users if ($thing->{u}) { - my %in = (map {my ($here, $call) = unpack "A1 A*", $_; ($call, $here)} split /:/, $thing->{u}); + %in = (map {my ($here, $call) = unpack "A1 A*", $_; ($call, $here)} split /:/, $thing->{u}); ($del, $add) = $parent->diff_users(keys %in); my $call;