aboutsummaryrefslogtreecommitdiff
path: root/find_tuning
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2022-01-15 17:36:48 -0500
committerB. Watson <yalhcru@gmail.com>2022-01-15 17:36:48 -0500
commit524ca7ffc3e68703277d7b1013962cbba1717a33 (patch)
treeb4bb4f00dec8c6ca65c803b368258df17f27618f /find_tuning
parentc6e280a592ae7d87268f7fbf4cd49ff1581796fd (diff)
downloadmisc-scripts-524ca7ffc3e68703277d7b1013962cbba1717a33.tar.gz
find_tuning: clean up previous temp files
Diffstat (limited to 'find_tuning')
-rwxr-xr-xfind_tuning4
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\" \"$_\"");
}