From 26b0bc8a1668e4f05b32ab16c7eaf363edc4432e Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Mon, 2 Dec 2002 09:47:20 +0000
Subject: Bug 177850: checksetup.pl was failing if the user didn't have read
 permissions to the entire Bugzilla path Patch by Jussi Sirpoma
 <jussi@comlink.fi> r=justdave, a=justdave

---
 checksetup.pl | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

(limited to 'checksetup.pl')

diff --git a/checksetup.pl b/checksetup.pl
index aceb6a706..3543b45ee 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -924,17 +924,15 @@ END
     if (-e 'data/template') {
         print "Removing existing compiled templates ...\n" unless $silent;
 
-        # If File::Path::rmtree reported errors, then I'd use that
-        use File::Find;
-        sub remove {
-            return if $_ eq ".";
-            if (-d $_) {
-                rmdir $_ || die "Couldn't rmdir $_: $!\n";
-            } else {
-                unlink $_ || die "Couldn't unlink $_: $!\n";
-            }
-        }
-        finddepth(\&remove, 'data/template');
+       File::Path::rmtree('data/template');
+
+       #Check that the directory was really removed
+       if(-e 'data/template') {
+           print "\n\n";
+           print "The data/template directory could not be removed. Please\n";
+           print "remove it manually and rerun checksetup.pl.\n\n";
+           exit;
+       }
     }
 
     # Precompile stuff. This speeds up initial access (so the template isn't
@@ -994,7 +992,7 @@ END
 
         use Cwd;
 
-        $::baseDir = getcwd();
+        $::baseDir = cwd();
 
         # Don't hang on templates which use the CGI library
         eval("use CGI qw(-no_debug)");
-- 
cgit v1.2.3-24-g4f1b