From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 7 May 2000 18:18:38 +0000 (+0000)
Subject: buildtoc tweak to fix newline lossage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7494063982d7975076fa26eea0959791b05a536a;p=p5sagit%2Fp5-mst-13.2.git

buildtoc tweak to fix newline lossage

p4raw-id: //depot/perl@6089
---

diff --git a/pod/buildtoc b/pod/buildtoc
index 21fee31..58bfc54 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -177,10 +177,11 @@ sub podset {
 	    $inhead2 = 1;
 	    output $_; nl(); next;
 	}
-	if (s/^=item ([^=].*)\n/$1/) {
+	if (s/^=item ([^=].*)/$1/) {
 	    next if $pod eq 'perldiag';
 	    s/^\s*\*\s*$// && next;
 	    s/^\s*\*\s*//;
+	    s/\n/ /g;
 	    s/\s+$//;
 	    next if /^[\d.]+$/;
 	    next if $pod eq 'perlmodlib' && /^ftp:/;