From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 23 Feb 1998 09:18:32 +0000 (+0000)
Subject: [win32] fix pl2bat.pl to tolerate trailing .bat (as suggested by
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb977fe4153eebe74249d1769da5b50ba68d897c;p=p5sagit%2Fp5-mst-13.2.git

[win32] fix pl2bat.pl to tolerate trailing .bat (as suggested by
John Cavanaugh <cavanaug@sdd.hp.com>)

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

diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl
index 73ae871..0f67fd4 100644
--- a/win32/bin/pl2bat.pl
+++ b/win32/bin/pl2bat.pl
@@ -22,12 +22,17 @@ $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 ';