tools/remove-recordings.pl: print simple list of files w/o special line format

This commit is contained in:
Milan
2023-05-31 20:30:32 +02:00
parent cdc0b1dd77
commit 2bad47df5f

View File

@@ -30,7 +30,7 @@ for my $file (sort glob("$dir/*")) {
next if -M $file < 14;
my $filename = normalize($file);
unless (exists $paths{$filename}) {
print " --- $filename\n";
print "$filename\n";
unlink $file or die $! if $delete;
}
}