Fix print_usage file handle in the perl scripts.

[mpdhacks.git] / mpdexec.pl

diff --git a/mpdexec.pl b/mpdexec.pl
index 496c5581ff53b9f9f411f75d22fb8aaebb88f00d..4d25ead18d81c979860f4044aa7e1da4f429a01a 100755 (executable)
--- a/mpdexec.pl
+++ b/mpdexec.pl
@@ -40,10 +40,10 @@ EOF
 }
 
 sub print_usage {
-       my $fh = $_[1] // *STDERR;
+       my ($fh) = (@_, *STDERR);
 
        print $fh "Usage: $0 [options] [command ...]\n";
-       print "Try $0 --help for more information.\n" unless (@_ > 0);
+       print $fh "Try $0 --help for more information.\n" unless (@_ > 0);
 }
 
 sub print_help {