Testsuite: account for (now) properly working Perl locale

[exim.git] / doc / doc-scripts / f2txt

diff --git a/doc/doc-scripts/f2txt b/doc/doc-scripts/f2txt
index ff5d70392a90857c1494bc643aa78ec0ed6174b6..7fb7292a5cbb6b2714b7ca0369a8ce32d85caa5f 100755 (executable)
--- a/doc/doc-scripts/f2txt
+++ b/doc/doc-scripts/f2txt
@@ -1,5 +1,4 @@
 #!/usr/bin/perl
 #!/usr/bin/perl

-# $Cambridge: exim/doc/doc-scripts/f2txt,v 1.1 2004/10/07 15:04:35 ph10 Exp $

 
 # Script to turn the Exim FAQ into plain ASCII.
 
 
 # Script to turn the Exim FAQ into plain ASCII.
 


@@ -56,7 +55,7 @@ return $s;
 
 # We want to read the file paragraph by paragraph; Perl only does this if the
 # separating lines are truly blank. Having been caught by lines containing
 
 # We want to read the file paragraph by paragraph; Perl only does this if the
 # separating lines are truly blank. Having been caught by lines containing

-# whitespace before, do a detrailing pass first.
+# whitespace before, do a de-trailing pass first.

 
 open(IN, "$ARGV[0]") || die "can't open $ARGV[0] (preliminary)\n";
 open(OUT, ">$ARGV[0]-$$") || die "can't open $ARGV[0]-$$\n";
 
 open(IN, "$ARGV[0]") || die "can't open $ARGV[0] (preliminary)\n";
 open(OUT, ">$ARGV[0]-$$") || die "can't open $ARGV[0]-$$\n";


@@ -83,7 +82,7 @@ while ($_ = <IN>)
 
   next if /^\#\#/;
 
 
   next if /^\#\#/;
 

-  # If a paragraph begins ==> it is a display which must remain verbatin
+  # If a paragraph begins ==> it is a display which must remain verbatim

   # and not be reformatted. The flag gets turned into spaces.
 
   if ($_ =~ /^==>/)
   # and not be reformatted. The flag gets turned into spaces.
 
   if ($_ =~ /^==>/)