Update of /cvsroot/pastebot/pastebot/Util
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12199/Util
Modified Files:
Conf.pm Data.pm
Log Message:
Tweak the modules search paths.
Index: Conf.pm
===================================================================
RCS file: /cvsroot/pastebot/pastebot/Util/Conf.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Conf.pm 8 Sep 2004 18:49:44 -0000 1.10
--- Conf.pm 9 Sep 2004 03:12:53 -0000 1.11
***************
*** 87,94 ****
my %opts;
getopts("f:", \%opts);
! my $cfile = $opts{"f"};
my $f = "pastebot.conf";
my @conf = (
! "./$f", "$HOME/$f", "/etc/pastebot/$f", "/usr/local/etc/pastebot/$f"
);
--- 87,94 ----
my %opts;
getopts("f:", \%opts);
! my $cfile = $opts{"f"};
my $f = "pastebot.conf";
my @conf = (
! "./$f", "$HOME/$f", "/usr/local/etc/pastebot/$f", "/etc/pastebot/$f"
);
Index: Data.pm
===================================================================
RCS file: /cvsroot/pastebot/pastebot/Util/Data.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Data.pm 13 Feb 2004 23:56:18 -0000 1.8
--- Data.pm 9 Sep 2004 03:12:53 -0000 1.9
***************
*** 266,270 ****
my $dir = pastestore();
! mkdir $dir unless -d $dir or die "mkdir $dir failed $!";
if (-e "$dir/Index") {
--- 266,276 ----
my $dir = pastestore();
! unless (-d $dir) {
! use File::Path;
! eval { mkpath $dir };
! if ($@) {
! die "Couldn't create directory $dir: $@";
! }
! }
if (-e "$dir/Index") {
|
