From 4fc210b748591e07ec7a862e29e14c535975de27 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 22 Feb 2005 15:17:38 +0000 Subject: [PATCH] fix syntax errors --- perl/Thingy/Rt.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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; -- 2.43.0