Exit early if no linkable files are found

Fixes a warning.
This commit is contained in:
Dan Church 2020-11-24 11:09:26 -06:00
parent 047df6c97b
commit 89b64b1ca1
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0

View file

@ -197,12 +197,17 @@ MAIN: {
scalar @files scalar @files
if $opts{v}; if $opts{v};
unless (@files) {
printf STDERR "Nothing to do.\n";
exit 0;
}
print STDERR "Generating hashes..." if $opts{v}; print STDERR "Generating hashes..." if $opts{v};
my $filehash = Directory::Simplify::FileHash->new; my $filehash = Directory::Simplify::FileHash->new;
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)); my $total_size_hr = sprintf "%0.4G %s", Directory::Simplify::Utils::hr_size(&sum(map { $_->{size} } @files) or 0);
printf STDERR "\e\x{37}"; printf STDERR "\e\x{37}";
my $cb = sub { my $cb = sub {
my ($file, $now) = (shift, time); my ($file, $now) = (shift, time);