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 (executable)
--- 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";
     }
 }