diff options
author | B. Watson <yalhcru@gmail.com> | 2022-01-15 17:36:48 -0500 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2022-01-15 17:36:48 -0500 |
commit | 524ca7ffc3e68703277d7b1013962cbba1717a33 (patch) | |
tree | b4bb4f00dec8c6ca65c803b368258df17f27618f /find_tuning | |
parent | c6e280a592ae7d87268f7fbf4cd49ff1581796fd (diff) | |
download | misc-scripts-524ca7ffc3e68703277d7b1013962cbba1717a33.tar.gz |
find_tuning: clean up previous temp files
Diffstat (limited to 'find_tuning')
-rwxr-xr-x | find_tuning | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/find_tuning b/find_tuning index aee1be3..abbd906 100755 --- a/find_tuning +++ b/find_tuning @@ -14,6 +14,8 @@ # with mplayer. This means we can actually use find_tuning on video files. # It also means we're trusting the input filename extension to be correct! +system("rm -f /tmp/find_tuning_*"); + if($ARGV[0] && $ARGV[0] eq '-q') { $quiet++; shift; @@ -29,7 +31,7 @@ for(@ARGV) { } else { $infile = "/tmp/find_tuning_$$.wav"; #$rm_infile = 1; - warn "Decoding $_ with mplayer\n" unless $quiet; + warn "Decoding $_ with mplayer: $infile\n" unless $quiet; system("mplayer -really-quiet -benchmark -vo null -ao pcm:fast:file=\"$infile\" \"$_\""); } |