win32/bin/runperl.bat

   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