Fix print_usage file handle in the perl scripts.

[mpdhacks.git] / mpdmenu.pl

diff --git a/mpdmenu.pl b/mpdmenu.pl
index 526772a92e6c13fe41c2b4c3e2739d07d16f5634..3cc0e350d02e1d85f68377153163b41432de9145 100755 (executable)
--- a/mpdmenu.pl
+++ b/mpdmenu.pl
@@ -453,10 +453,10 @@ EOF
 }
 
 sub print_usage {
-       my $fh = $_[1] // *STDERR;
+       my ($fh) = (@_, *STDERR);
 
        print $fh "Usage: $0 [options]\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 {