[win32] undo previous change (no added value!)

p4raw-id: //depot/win32/perl@572

diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl
index 0f67fd4..73ae871 100644 (file)
--- a/win32/bin/pl2bat.pl
+++ b/win32/bin/pl2bat.pl
@@ -22,17 +22,12 @@ $OPT{'a'} = ($^O eq 'MSWin32' and &Win32::IsWinNT
              ? '-x -S %0 %*'
             : '-x -S %0 %1 %2 %3 %4 %5 %6 %7 %8 %9')
          unless exists $OPT{'a'};
-($OPT{'a2'} = $OPT{'a'} ) =~ s/\%0/\%0.bat/g;
 $OPT{'s'} = '.pl' unless exists $OPT{'s'};
 $OPT{'s'} = ($OPT{'s'} =~ m|^/([^/]*)| ? $1 : "\Q$OPT{'s'}\E");
 
 (my $head = <<EOT) =~ s/^\t//gm;
        \@rem = '--*-Perl-*--
        \@echo off
-       if not exist \%0.bat goto over
-       perl $OPT{'a2'}
-       goto endofperl
-       :over
        perl $OPT{'a'}
        goto endofperl
        \@rem ';