[p5sagit/p5-mst-13.2.git] / win32 / bin / runperl.bat

@rem = '--*-Perl-*--
@echo off
perl -x -S %0 %*
goto endofperl
@rem ';
#!perl -w
#line 8
$0 =~ s|\.bat||i;
unless (-f $0) {
    $0 =~ s|.*[/\\]||;
    for (".", split ';', $ENV{PATH}) {
	$_ = "." if $_ eq "";
	$0 = "$_/$0" , goto doit if -f "$_/$0";
    }
    die "`$0' not found.\n";
}
doit: exec "perl", "-x", $0, @ARGV;
die "Failed to exec `$0': $!";
__END__
:endofperl
Commit	Line	Data
156a3eb7	1	@rem = '---Perl---
	2	@echo off
	3	perl -x -S %0 %*
	4	goto endofperl
	5	@rem ';
	6	#!perl -w
	7	#line 8
	8	$0 =~ s\|\.bat\|\|i;
	9	unless (-f $0) {
	10	$0 =~ s\|.*[/\\]\|\|;
	11	for (".", split ';', $ENV{PATH}) {
	12	$_ = "." if $_ eq "";
	13	$0 = "$_/$0" , goto doit if -f "$_/$0";
	14	}
	15	die "`$0' not found.\n";
	16	}
	17	doit: exec "perl", "-x", $0, @ARGV;
	18	die "Failed to exec `$0': $!";
	19	__END__
	20	:endofperl