From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 18 Jul 1999 00:47:17 +0000 (+0000)
Subject: ensure __END__ appears on a line by itself in wrapped
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=517db07721f121446b16672c63a0ca8d753c8eea;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 921b66f..3e79181 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -2118,7 +2118,8 @@ See also C<each>, C<values> and C<sort>.
 
 Sends a signal to a list of processes.  The first element of
 the list must be the signal to send.  Returns the number of
-processes successfully signaled.
+processes successfully signaled (which is not necessarily the
+same as the number actually killed).
 
     $cnt = kill 1, $child1, $child2;
     kill 9, @goners;
diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl
index 2fa8088..f33b46c 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;