From: minima <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;