This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In buildtoc, remove a superfluous "\n " passed to output()
authorNicholas Clark <nick@ccl4.org>
Thu, 20 Jan 2011 16:54:17 +0000 (16:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 08:37:32 +0000 (08:37 +0000)
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.

pod/buildtoc

index cc105a0..76b41b8 100644 (file)
@@ -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;