From 66fe91efed5efd120c772a36afd8a4c8bfb3654e Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Thu, 9 May 2013 23:46:06 +0200
Subject: [PATCH] Expire keep files and delete pages during maintenance without
 main lock.

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

diff --git a/wiki.pl b/wiki.pl
index e5854ba4..18914cb6 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -3796,8 +3796,7 @@ sub DoMaintain {
       return;
     }
   }
-  RequestLockOrError();
-  print $q->p(T('Main lock obtained.')), '<p>', T('Expiring keep files and deleting pages marked for deletion');
+  print '<p>', T('Expiring keep files and deleting pages marked for deletion');
   # Expire all keep files
   foreach my $name (AllPagesList()) {
     print $q->br(), GetPageLink($name);
@@ -3810,7 +3809,10 @@ sub DoMaintain {
       ExpireKeepFiles();
     }
   }
-  print '</p>', $q->p(Ts('Moving part of the %s log file.', $RCName));
+  print '</p>';
+  RequestLockOrError();
+  print $q->p(T('Main lock obtained.'));
+  print $q->p(Ts('Moving part of the %s log file.', $RCName));
   # Determine the number of days to go back
   my $days = 0;
   foreach (@RcDays) {