From 4fc210b748591e07ec7a862e29e14c535975de27 Mon Sep 17 00:00:00 2001
From: minima <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.34.1