diff options
| author | ivan <ivan> | 1999-03-29 01:29:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-03-29 01:29:33 +0000 |
| commit | bc968434919daeb185fae0d765aa01cd4734f14d (patch) | |
| tree | 640cf05dcd4d5c695ec4b430801fd69bbf5c4a3e | |
| parent | ba645a8c36119b3a0448b1ae1eeaecbaef13b244 (diff) | |
die unless the configuration directory exists
| -rw-r--r-- | site_perl/Conf.pm | 12 |
1 files 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) |