escape commas for mplayer

This commit is contained in:
josh committed 2012-11-12 22:18:13 -05:00
1 parent 148105b3d0
commit 751a04e5e4
1 file changed
+4 -3
+4 -3
View File
@@ -4,8 +4,9 @@ use strict;
foreach my $arg (@ARGV) foreach my $arg (@ARGV)
{ {
my $out = $arg; my $out = $arg;
$out =~ s/\....$//; $out =~ s/\....$//;
system('mplayer', '-vo', 'null', '-ao', "pcm:file=$out.wav", $arg); $out =~ s/\,/\\,/g;
system('mplayer', '-vo', 'null', '-ao', "pcm:file=$out.wav", $arg);
} }