From bc968434919daeb185fae0d765aa01cd4734f14d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 29 Mar 1999 01:29:33 +0000
Subject: [PATCH] die unless the configuration directory exists

---
 site_perl/Conf.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/site_perl/Conf.pm b/site_perl/Conf.pm
index 96a284f78..9cc0d900e 100644
--- a/site_perl/Conf.pm
+++ b/site_perl/Conf.pm
@@ -53,7 +53,12 @@ Returns the directory.
 
 sub dir {
   my($self) = @_;
-  $self->{dir};
+  my $dir = $self->{dir};
+  -e $dir or die "FATAL: $dir doesn't exist!";
+  -d $dir or die "FATAL: $dir isn't a directory!";
+  -r $dir or die "FATAL: Can't read $dir!";
+  -x $dir or die "FATAL: $dir not searchable (executable)!";
+  $dir;
 }
 
 =item config 
@@ -107,7 +112,10 @@ Ivan Kohler <ivan@sisd.com> 98-sep-6
 sub exists forgot to fetch $dir ivan@sisd.com 98-sep-27
 
 $Log: Conf.pm,v $
-Revision 1.2  1998-11-13 04:08:44  ivan
+Revision 1.3  1999-03-29 01:29:33  ivan
+die unless the configuration directory exists
+
+Revision 1.2  1998/11/13 04:08:44  ivan
 no default default_dir (ironic)
 
 
-- 
2.11.0