From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 20 Jan 2011 16:54:17 +0000 (+0000)
Subject: In buildtoc, remove a superfluous "\n " passed to output()
X-Git-Tag: accepted/trunk/20130322.191538~5923
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=02a4b4d8757a460eaae3a1cd59f8cccdcf727628;p=platform%2Fupstream%2Fperl.git

In buildtoc, remove a superfluous "\n " passed to output()

This is actually a hangover from the original code which used print directly,
left in as part of the refactoring that added sub output in 8ebc5c0145d2e355.
The machinations of output() mean that this "\n " generate no actual output,
hence the output of buildtoc is unchanged.
---

diff --git a/pod/buildtoc b/pod/buildtoc
index cc105a0..76b41b8 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -430,7 +430,7 @@ sub podset {
 	tr/\015//d;
 	if (s/^=head1 (NAME)\s*/=head2 /) {
 	    unhead1();
-	    output "\n \n\n=head2 ";
+	    output "\n\n=head2 ";
 	    $_ = <$fh>;
 	    # Remove svn keyword expansions from the Perl FAQ
 	    s/ \(\$Revision: \d+ \$\)//g;