Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (5 sloc) 204 Bytes
#!/usr/bin/env perl
use FindBin '$Bin';
$ENV{PERL5LIB} = "$Bin/deps/mouse/lib:$Bin/deps/mousex-nativetraits/lib";
my $command = "$Bin/get_iplayer " . join(" ",map {"'" . $_ . "'"} @ARGV);
`$command`;