From 524ca7ffc3e68703277d7b1013962cbba1717a33 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sat, 15 Jan 2022 17:36:48 -0500
Subject: find_tuning: clean up previous temp files

---
 find_tuning | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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\" \"$_\"");
 	}
 
-- 
cgit v1.2.3