kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Milan
2023-05-31 20:30:32 +02:00
parent cdc0b1dd77
commit 2bad47df5f
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tools/remove-recordings.pl
View File

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