cleanup

diff --git a/combine b/combine
index 13fc2e442df918a6f3e9e7d80c0daf975b7eba0b..99a4de6125bfdcec457529419eb700c0707e9fe6 100755 (executable)
--- 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{$_};
        }
 }