From: Galen Charlton <gmc@esilibrary.com>
Date: Fri, 1 Aug 2014 19:22:04 +0000 (+0000)
Subject: fix construct that doesn't work in Perl 5.10
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=9bb290448b0ccc6ce90adb267ee43cc569672567

fix construct that doesn't work in Perl 5.10

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/cleanup_merge_map.pl b/cleanup_merge_map.pl
index 06f2c8f..5227d42 100755
--- a/cleanup_merge_map.pl
+++ b/cleanup_merge_map.pl
@@ -45,7 +45,7 @@ cleanup_map() foreach (1..2);
 
 foreach my $sub (sort numerically keys %leads) {
     if (1 == keys(%{ $leads{$sub} })) {
-        print join("\t", keys($leads{$sub}), $sub), "\n";
+        print join("\t", keys(%{ $leads{$sub} }), $sub), "\n";
     }
 }