Invert the case of -s. thinko.
my @files = grep { /\d*\d\d.status/ } readdir($dir);
close $dir;
foreach (@files) {
my @files = grep { /\d*\d\d.status/ } readdir($dir);
close $dir;
foreach (@files) {
- next if ( -s "$prefix$_1/$_2/$_3/$_" );
+ next if ( ! -s "$prefix$_1/$_2/$_3/$_" );
s/.status$//;
push @ret, $_;
# print "$_ -> $_1/$_2/$_3/$_\n";
s/.status$//;
push @ret, $_;
# print "$_ -> $_1/$_2/$_3/$_\n";