X-Git-Url: https://git.draconx.ca/gitweb/mpdhacks.git/blobdiff_plain/4fec499ce726a2dad91c05e2cd69566b31d9d15a..8a39a0fd4ed8d545759e07937fa4c66f5d324987:/mpdexec.pl?ds=sidebyside 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 {