Taint: fix off-by-one in is_tainted(). Bug 2634

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

diff --git a/doc/doc-scripts/f2wiki b/doc/doc-scripts/f2wiki
index 253f9d834190ae691585c8372d59f5ca8020a402..8576359aacfaf2d7c12e7fd30c3244cecc359562 100644 (file)
--- a/doc/doc-scripts/f2wiki
+++ b/doc/doc-scripts/f2wiki
@@ -2,8 +2,6 @@
 #
 # Script to convert Exim FAQ into wiki markup - moin flavour
 #
 #
 # Script to convert Exim FAQ into wiki markup - moin flavour
 #

-# $Cambridge: exim/doc/doc-scripts/f2wiki,v 1.1 2004/11/12 14:48:08 nm4 Exp $
-#

 use strict;
 use integer;
 use bytes;
 use strict;
 use integer;
 use bytes;


@@ -276,7 +274,9 @@ sub build_tocs ($) {
     my $meta = shift;
 
     my $tfh = IO::File->new('FAQ', 'w');
     my $meta = shift;
 
     my $tfh = IO::File->new('FAQ', 'w');

-    foreach my $sect (values %{$meta->{sections}}) {
+    my @sections = sort { $a->{num} <=> $b->{num} }
+      values %{$meta->{sections}};
+    foreach my $sect (@sections) {

        my $fh = IO::File->new($sect->{wikifile}, 'w');
        $fh->print(join("\n",
                        '##language:en',
        my $fh = IO::File->new($sect->{wikifile}, 'w');
        $fh->print(join("\n",
                        '##language:en',