From a8ac1e791509ee4f5fa77a7b6e495add327ee573 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 23 Sep 1998 09:42:17 +0000
Subject: [PATCH] pl2bat tweak from Tye McQueen <tye@metronet.com>

p4raw-id: //depot/perl@1840
---
 win32/bin/pl2bat.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl
index 121d784..2fa8088 100644
--- a/win32/bin/pl2bat.pl
+++ b/win32/bin/pl2bat.pl
@@ -80,6 +80,8 @@ sub process {
     my $linenum = 0;
     my $skiplines = 0;
     my $line;
+    my $start= $Config{startperl};
+    $start= "#!perl"   unless  $start =~ /^#!.*perl/;
     open( FILE, $file ) or die "$0: Can't open $file: $!";
     @file = <FILE>;
     foreach $line ( @file ) {
@@ -109,7 +111,7 @@ sub process {
     $file .= '.bat' unless $file =~ /\.bat$/i or $file =~ /^-$/;
     open( FILE, ">$file" ) or die "Can't open $file: $!";
     print FILE $myhead;
-    print FILE $Config{startperl}, ( $OPT{'w'} ? " -w" : "" ),
+    print FILE $start, ( $OPT{'w'} ? " -w" : "" ),
 	       "\n#line ", ($headlines+1), "\n" unless $linedone;
     print FILE @file[$skiplines..$#file];
     print FILE $tail unless $taildone;
-- 
2.7.4