Missing BOOL in function heading in filtertest.c; removed an email
[exim.git] / doc / doc-docbook / Tidytxt
1 #! /usr/bin/perl
2
3 # $Cambridge: exim/doc/doc-docbook/Tidytxt,v 1.1 2005/06/16 10:32:31 ph10 Exp $
4
5 # Script to tidy up the output of w3m when it makes a text file. We convert
6 # sequences of blank lines into a single blank line.
7
8 $blanks = 0;
9 while (<>)
10   {
11   if (/^\s*$/)
12     {
13     $blanks++;
14     next;
15     }
16   print "\n" if $blanks > 0;
17   $blanks = 0;
18   print;
19   }
20
21 # End