From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 20 Jan 2011 17:12:50 +0000 (+0000)
Subject: In buildtoc, remove a superfluous length in output()
X-Git-Tag: accepted/trunk/20130322.191538~5922
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=bb5dd17ccbc8f94ed68de91e54e57d4b0c201744;p=platform%2Fupstream%2Fperl.git

In buildtoc, remove a superfluous length in output()

If \S matches, then length must be non-zero, and therefore true.
This dates to commit 8ebc5c0145d2e355, when output() was added.
---

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