X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FRt.pm;h=fe018855286f4a2ca5603e089c6797874d79fd2c;hb=c4a169b536b6189937c6e789010c370ff3f2259e;hp=5242259c63f82ae5f19d3c5f93376cdbfb457b23;hpb=2b4d1b892fcb8f360724f19c98500222c897c46a;p=spider.git

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;