X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=cleanup_merge_map.pl;h=5227d42f3bd7b5e58d5165afc0f2385517594a63;hp=06f2c8f3c60f396980d5762cf297a449cac2066c;hb=d4aa3a31e550efef14a4bcd0ba99188d4fa9b153;hpb=740164c226112d71a70f5ab83bd1c22ce5c1adaf

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