diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/bin/cpanp-run-perl')
-rwxr-xr-x | Master/tlpkg/tlperl0/bin/cpanp-run-perl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/bin/cpanp-run-perl b/Master/tlpkg/tlperl0/bin/cpanp-run-perl new file mode 100755 index 00000000000..34e62bddd04 --- /dev/null +++ b/Master/tlpkg/tlperl0/bin/cpanp-run-perl @@ -0,0 +1,10 @@ +use strict; +my $old = select STDERR; $|++; # turn on autoflush +select $old; $|++; # turn on autoflush +$0 = shift(@ARGV); # rename the script +my $rv = do($0); # execute the file +die $@ if $@; # die on parse/execute error + +### XXX 'do' returns last statement evaluated, which may be +### undef as well. So don't die in that case. +#die $! if not defined $rv; # die on execute error |