diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 09:42:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 09:42:17 +0000 |
| commit | a8ac1e791509ee4f5fa77a7b6e495add327ee573 (patch) | |
| tree | 8243ae4e507c3b5bdc7a691fa2a8ef3ffec71fa9 /win32/bin | |
| parent | d3ef56684fd202c15842c6bd3b39ec9be6eae9b7 (diff) | |
| download | perl-a8ac1e791509ee4f5fa77a7b6e495add327ee573.tar.gz | |
pl2bat tweak from Tye McQueen <tye@metronet.com>
p4raw-id: //depot/perl@1840
Diffstat (limited to 'win32/bin')
| -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; |