diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-20 16:54:17 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-21 08:37:32 +0000 |
| commit | 02a4b4d8757a460eaae3a1cd59f8cccdcf727628 (patch) | |
| tree | 953866ce46273218b2c53c5fe1516ccb91afd163 /pod/buildtoc | |
| parent | 8c2a5308fefcb749f8a907b00e4946496354f581 (diff) | |
| download | perl-02a4b4d8757a460eaae3a1cd59f8cccdcf727628.tar.gz | |
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.
Diffstat (limited to 'pod/buildtoc')
| -rw-r--r-- | pod/buildtoc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index cc105a07fb..76b41b8890 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; |