X-Git-Url: https://git.draconx.ca/gitweb/mpdhacks.git/blobdiff_plain/b0f5f5741b234174958ade58a6e884df8b6b00e4..f1a45f3dd740c5b55cd44ff09548d49791191863:/mpdexec.pl diff --git a/mpdexec.pl b/mpdexec.pl index 496c558..4d25ead 100755 --- 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 {