sprintf rudundancy warnings

This commit is contained in:
frank-cizmich
2016-02-05 13:35:44 -03:00
parent baddc014e1
commit 56b44a7522
16 changed files with 83 additions and 75 deletions

View File

@@ -3530,8 +3530,8 @@ sub shorten {
}
return sprintf(
$num =~ m/\./ || $n
? "%.${p}f%s"
: '%d',
? '%1$.'.$p.'f%2$s'
: '%1$d',
$num, $units[$n]);
}
@@ -4918,11 +4918,10 @@ sub new {
last_reported => $args{start},
fraction => 0, # How complete the job is
callback => sub {
my ($fraction, $elapsed, $remaining, $eta) = @_;
my ($fraction, $elapsed, $remaining) = @_;
printf STDERR "$name: %3d%% %s remain\n",
$fraction * 100,
Transformers::secs_to_time($remaining),
Transformers::ts($eta);
Transformers::secs_to_time($remaining);
},
%args,
};