Use non-interpolating strings where possible

This commit is contained in:
Dan Church 2023-07-20 14:27:34 -05:00
parent 2987e063bd
commit 4e2e94881b
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0

View file

@ -219,7 +219,7 @@ MAIN: {
my $report_every = 1; # seconds my $report_every = 1; # seconds
my $processed_bytes = 0; my $processed_bytes = 0;
my $last_report = time; my $last_report = time;
my $total_size_hr = sprintf "%0.4G %s", Directory::Simplify::Utils::hr_size(sum(map { $_->{size} } @files) or 0); my $total_size_hr = sprintf '%0.4G %s', Directory::Simplify::Utils::hr_size(sum(map { $_->{size} } @files) or 0);
my $cb; my $cb;
if ($print_progress) { if ($print_progress) {
printf STDERR "\e\x{37}"; printf STDERR "\e\x{37}";