[pastebot-cvs] pastebot/Util Conf.pm,1.10,1.11 Data.pm,1.8,1.9

[<rc...@us...>]

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") {