This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In buildtoc, remove a superfluous length in output()
authorNicholas Clark <nick@ccl4.org>
Thu, 20 Jan 2011 17:12:50 +0000 (17:12 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 08:37:32 +0000 (08:37 +0000)
If \S matches, then length must be non-zero, and therefore true.
This dates to commit 8ebc5c0145d2e355, when output() was added.

pod/buildtoc

index 76b41b8..748f65f 100644 (file)
@@ -520,7 +520,7 @@ sub output ($) {
                $NEWLINE++;
            }
        }
-       elsif (/\S/ && length) {
+       elsif (/\S/) {
            $LINE .= $_;
            $NEWLINE = 0;
        }