diff options
Diffstat (limited to 'win32/bin/pl2bat.pl')
| -rw-r--r-- | win32/bin/pl2bat.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl index 121d7843d3..2fa8088500 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; |