diff options
| author | fukachan <fukachan> | 2003-12-30 03:47:54 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-12-30 03:47:54 +0000 |
| commit | bb3133c19e4a387268c225770bad61676426df36 (patch) | |
| tree | 683af7e522c8749d5de88007b02c516508ea2f11 /fml/lib/FML/Cache | |
| parent | d2b82556a05ad474cdedbba294c349e5d5dc9bed (diff) | |
| download | fml8-bb3133c19e4a387268c225770bad61676426df36.tar.gz fml8-bb3133c19e4a387268c225770bad61676426df36.tar.bz2 fml8-bb3133c19e4a387268c225770bad61676426df36.zip | |
import $directory_private_mode if could
Diffstat (limited to 'fml/lib/FML/Cache')
| -rw-r--r-- | fml/lib/FML/Cache/Journal.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/fml/lib/FML/Cache/Journal.pm b/fml/lib/FML/Cache/Journal.pm index f4eab9d6..77516be4 100644 --- a/fml/lib/FML/Cache/Journal.pm +++ b/fml/lib/FML/Cache/Journal.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Journal.pm,v 1.1 2003/11/22 05:41:51 fukachan Exp $ +# $FML: Journal.pm,v 1.2 2003/12/06 04:48:18 fukachan Exp $ # package FML::Cache::Journal; @@ -52,15 +52,14 @@ sub new sub open { my ($self, $cache_dir, $class) = @_; - my (%db) = (); - - # XXX-TODO: dir_mode hard-coded. - my $mode = $self->{ _dir_mode } || 0700; + my $curproc = $self->{ _curproc }; + my $config = $curproc->config(); + my $mode = $config->{ directory_private_mode } || 0700; + my (%db) = (); use File::Spec; my $dir = File::Spec->catfile($cache_dir, $class); unless (-d $dir) { - my $curproc = $self->{ _curproc }; $curproc->mkdir($dir, $mode); } |