From e3be812a3546d8c41ffcf9dde149eb596f09abda Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Sun, 4 Apr 2004 17:24:03 +0000
Subject: [PATCH] (AllPagesList): Produce an error if the pageidx file exists
 and cannot be overwritten.

---
 wiki.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 92a32cee..2507c9ff 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -314,7 +314,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.369 2004/04/03 21:50:22 as Exp $');
+    . $q->p('$Id: wiki.pl,v 1.370 2004/04/04 17:24:03 as Exp $');
   $WikiDescription .= $ModulesDescription if $ModulesDescription;
 }
 
@@ -2940,8 +2940,8 @@ sub AllPagesList {
     $IndexHash{$1} = 1;
   }
   $IndexInit = 1;  # Initialized for this run of the script
-  # Try to write out the list for future runs
-  RequestLockDir('index') or return @IndexList; # not fatal
+  # Try to write out the list for future runs.  If file exists and cannot be changed, error!
+  RequestLockDir('index', undef, undef, -f $IndexFile) or return @IndexList;
   WriteStringToFile($IndexFile, join(' ', %IndexHash));
   ReleaseLockDir('index');
   return @IndexList;