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 44d0e91a929c361059b4e5a7df6f0ed6252d4699..075f0c7c7cb3db23aea8ea0f8633eed443de4842 100755
(executable)
--- a/
faster-dupemerge
+++ b/
faster-dupemerge
@@
-405,7
+405,7
@@
incumbent_file:
}
if (format_inode($incumbent_dev, $incumbent_ino) ne $incumbent) {
}
if (format_inode($incumbent_dev, $incumbent_ino) ne $incumbent) {
- warn "$incumbent_file: expected inode $incumbent, found
$incumbent_dev:$incumbent_ino"
;
+ warn "$incumbent_file: expected inode $incumbent, found
".format_inode($incumbent_dev, $incumbent_ino)
;
$surprises++;
next incumbent_file;
}
$surprises++;
next incumbent_file;
}
@@
-426,7
+426,7
@@
candidate_file:
}
if (format_inode($candidate_dev, $candidate_ino) ne $candidate) {
}
if (format_inode($candidate_dev, $candidate_ino) ne $candidate) {
- warn "$candidate_file: expected inode $candidate, found
$candidate_dev:$candidate_ino"
;
+ warn "$candidate_file: expected inode $candidate, found
".format_inode($candidate_dev, $candidate_ino)
;
$surprises++;
next candidate_file;
}
$surprises++;
next candidate_file;
}
@@
-665,7
+665,7
@@
if ($humane) {
sub space_numbers {
my ($num) = @_;
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;
}
$num = ' ' x ($max_num_len - length($num)) . $num;
return $num;
}