From bd9cdb410abf76efc43af69ecfca49df7cd67b42 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Tue, 11 Nov 2003 17:21:40 +0000
Subject: [PATCH] (DoIndex): Sort pages.

---
 wiki.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index edc5841e..a2922cb2 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -275,7 +275,7 @@ sub InitVariables {    # Init global session variables for mod_perl!
     }
   }
   $WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
-    . $q->p('$Id: wiki.pl,v 1.256 2003/11/11 17:19:14 as Exp $');
+    . $q->p('$Id: wiki.pl,v 1.257 2003/11/11 17:21:40 as Exp $');
 }
 
 sub InitCookie {
@@ -2702,7 +2702,7 @@ sub DoIndex {
     ReadPermanentAnchors() if $anchors > 0 and not %PermanentAnchors;
     push(@pages, AllPagesList()) if $anchors < 2;
     push(@pages, keys %PermanentAnchors) if $anchors > 0;
-    sort @pages if $anchors > 0;
+    @pages = sort @pages if $anchors > 0;
     PrintPageList(@pages);
     PrintFooter();
   }