| Line | |
|---|
| 1 | @rem = '--*-Perl-*--
|
|---|
| 2 | @echo off
|
|---|
| 3 | if "%OS%" == "Windows_NT" goto WinNT
|
|---|
| 4 | perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
|
|---|
| 5 | goto endofperl
|
|---|
| 6 | :WinNT
|
|---|
| 7 | perl -x -S %0 %*
|
|---|
| 8 | if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
|
|---|
| 9 | if %errorlevel% == 9009 echo You do not have Perl in your PATH.
|
|---|
| 10 | if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
|
|---|
| 11 | goto endofperl
|
|---|
| 12 | @rem ';
|
|---|
| 13 | #!perl
|
|---|
| 14 | #line 15
|
|---|
| 15 | eval 'exec c:\shaoqunWu\perl\bin\perl.exe -S $0 ${1+"$@"}'
|
|---|
| 16 | if 0;
|
|---|
| 17 |
|
|---|
| 18 | # This "perldoc" file was generated by "perldoc.PL"
|
|---|
| 19 |
|
|---|
| 20 | require 5;
|
|---|
| 21 | BEGIN { $^W = 1 if $ENV{'PERLDOCDEBUG'} }
|
|---|
| 22 | use Pod::Perldoc;
|
|---|
| 23 | exit( Pod::Perldoc->run() );
|
|---|
| 24 |
|
|---|
| 25 |
|
|---|
| 26 | __END__
|
|---|
| 27 | :endofperl
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
