tools/remove-recordings.pl: print simple list of files w/o special line format
This commit is contained in:
@@ -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;
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user