Select Code to Download

C:\_32\pscrpt\inline>yrt.bat
string[21] = 'perl  -x -S yrt.bat  '

@rem = '--*-Perl-*--
@echo off
...

__END__
:endofperl

C:\_32\pscrpt\inline>try.bat
string[20] = 'perl  -x -S try.bat '

use ExtUtils::MakeMaker;
my %options = %{       
...

# Remove the Makefile dependency. Causes problems on a few systems.
sub MY::makefile { '' }

#include "EXTERN.h"
#include "perl.h"
...
SV *
wrap_GetCommandLine ()

use Win32::GetCommandLine;

...

if($string =~ /perl/) {print "ok 1\n"}
else {print "not ok 1\n"}

package Win32::GetCommandLine;

...
bootstrap Win32::GetCommandLine $VERSION;

1;