summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/bin/cpanp-run-perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/bin/cpanp-run-perl')
-rwxr-xr-xMaster/tlpkg/tlperl/bin/cpanp-run-perl10
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/bin/cpanp-run-perl b/Master/tlpkg/tlperl/bin/cpanp-run-perl
new file mode 100755
index 00000000000..34e62bddd04
--- /dev/null
+++ b/Master/tlpkg/tlperl/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