summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/bin/cpanp-run-perl.bat
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl0/bin/cpanp-run-perl.bat')
-rwxr-xr-xMaster/tlpkg/tlperl0/bin/cpanp-run-perl.bat27
1 files changed, 27 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/bin/cpanp-run-perl.bat b/Master/tlpkg/tlperl0/bin/cpanp-run-perl.bat
new file mode 100755
index 00000000000..b00cb8b2282
--- /dev/null
+++ b/Master/tlpkg/tlperl0/bin/cpanp-run-perl.bat
@@ -0,0 +1,27 @@
+@rem = '--*-Perl-*--
+@echo off
+if "%OS%" == "Windows_NT" goto WinNT
+perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofperl
+:WinNT
+perl -x -S %0 %*
+if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
+if %errorlevel% == 9009 echo You do not have Perl in your PATH.
+if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
+goto endofperl
+@rem ';
+#!perl
+#line 15
+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
+
+__END__
+:endofperl