Fix print_usage file handle in the perl scripts.

[mpdhacks.git] / mpdreload.pl

diff --git a/mpdreload.pl b/mpdreload.pl
index 6305783947fe63e1fe33499e119647c50c8b0fee..c852a2bd4b85e693ab9eb396d0451816d7193a85 100755 (executable)
--- a/mpdreload.pl
+++ b/mpdreload.pl
@@ -90,10 +90,10 @@ EOF
 }
 
 sub print_usage {
-       my $fh = $_[1] // *STDERR;
+       my ($fh) = (@_, *STDERR);
 
        print $fh "Usage: $0 [options] playlist\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 {