From 517db07721f121446b16672c63a0ca8d753c8eea Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 18 Jul 1999 00:47:17 +0000
Subject: ensure __END__ appears on a line by itself in wrapped scripts (thanks
 to Steve Tolkin <tolkin@mediaone.net>); mention caveat about successfull
 kill()

p4raw-id: //depot/perl@3689
---
 win32/bin/pl2bat.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'win32/bin')

diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl
index 2fa8088500..f33b46c3df 100644
--- a/win32/bin/pl2bat.pl
+++ b/win32/bin/pl2bat.pl
@@ -64,7 +64,7 @@ EOT
 }
 $head =~ s/^\t//gm;
 my $headlines = 2 + ($head =~ tr/\n/\n/);
-my $tail = "__END__\n:endofperl\n";
+my $tail = "\n__END__\n:endofperl\n";
 
 @ARGV = ('-') unless @ARGV;
 
-- 
cgit v1.2.1