From 4549f5d3e3ac049668bd41b7d3de214c7826f69b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 9 Apr 2012 16:19:20 -0400
Subject: [PATCH] cleanup

---
 combine | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/combine b/combine
index 13fc2e4..99a4de6 100755
--- a/combine
+++ b/combine
@@ -105,30 +105,30 @@ sub compare_or {
 sub compare_xor {
 	my ($file1, $file2) = @_;
 
-	my ($lines2, $seen2) = ([], {});
+	my (@lines2, %seen2);
 	filemap $file2,
 		sub {
-			push @$lines2, $_;
-			$seen2->{$_} = 1;
+			push @lines2, $_;
+			$seen2{$_} = 1;
 		};
 
+	# Print all lines in file1 that are not in file2,
+	# and mark lines that are in both files by setting
+	# their value in %seen2 to 0.
 	filemap $file1,
 		sub {
-			# Print all lines in file1 that are not in file2,
-			# and mark lines that are in both files by setting
-			# their value in %seen2 to 0.
-			if (exists $seen2->{$_}) {
-				$seen2->{$_} = 0;
+			if (exists $seen2{$_}) {
+				$seen2{$_} = 0;
 			}
 			else {
 				print "$_\n";
 			}
 		};
 
-	foreach (@$lines2) {
-		# Print all lines that are in file2 but not in file1.
-		# The value of these lines in seen2 is set to 1.
-		print "$_\n" if $seen2->{$_};
+	# Print all lines that are in file2 but not in file1.
+	# The value of these lines in seen2 is set to 1.
+	foreach (@lines2) {
+		print "$_\n" if $seen2{$_};
 	}
 }
 
-- 
2.39.5