projects
/
dupemerge
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
humane: fix uninitialized-value warnings
[dupemerge]
/
faster-dupemerge
diff --git
a/faster-dupemerge
b/faster-dupemerge
index ef86fbb4898306a0d0805cf49679c3758424120e..075f0c7c7cb3db23aea8ea0f8633eed443de4842 100755
(executable)
--- a/
faster-dupemerge
+++ b/
faster-dupemerge
@@
-665,7
+665,7
@@
if ($humane) {
sub space_numbers {
my ($num) = @_;
- 1 while $num =~ s/(\d)(\d\d\d)(
\d\d\d)*
$/$1 $2$3/os;
+ 1 while $num =~ s/(\d)(\d\d\d)(
(?: \d\d\d)*)
$/$1 $2$3/os;
$num = ' ' x ($max_num_len - length($num)) . $num;
return $num;
}