projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
740164c
)
fix construct that doesn't work in Perl 5.10
author
Galen Charlton
<gmc@esilibrary.com>
Fri, 1 Aug 2014 19:22:04 +0000 (19:22 +0000)
committer
Galen Charlton
<gmc@esilibrary.com>
Fri, 1 Aug 2014 19:22:04 +0000 (19:22 +0000)
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
cleanup_merge_map.pl
patch
|
blob
|
history
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";
}
}