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 (file)
--- 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 (file)
--- 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;