In buildtoc, remove whitespace only lines just before output.
authorNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 14:43:25 +0000 (14:43 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 15:06:46 +0000 (15:06 +0000)
Previously output() eliminated whitespace only lines. Whilst this change itself
adds code, it makes the logic clearer, which will permit more simplification.

pod/buildtoc

index af9f525..e33118d 100644 (file)
@@ -406,6 +406,7 @@ EOPOD2B
   output $_;
   output "\n";                    # flush $LINE
 
+  $OUT =~ s/\n\s+\n/\n\n/gs;
   $OUT =~ s/\n{3,}/\n\n/g;
   open OUT, '>', $filename or die "$0: creating $filename failed: $!";
   print OUT $OUT;
@@ -505,7 +506,7 @@ sub output ($) {
            }
            $OUT .= $_;
        }
-       elsif (/\S/) {
+       else {
            $LINE .= $_;
        }
     }