From 9bb290448b0ccc6ce90adb267ee43cc569672567 Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Fri, 1 Aug 2014 19:22:04 +0000
Subject: [PATCH] fix construct that doesn't work in Perl 5.10

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 cleanup_merge_map.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

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";
     }
 }
 
-- 
1.7.2.5