diff options
| author | fukachan <fukachan> | 2001-01-24 08:42:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-24 08:42:52 +0000 |
| commit | 6fd234767e30ff64dc8cd5d4b660a348a6bbbe31 (patch) | |
| tree | 9730f126a23c6abc906110040f140a3c00c2d03e /fml/lib/FML/Ticket/System.pm | |
| parent | 0379d8f83e09ef1e6b3f7fa6a5f4f33a08469d97 (diff) | |
| download | fml8-6fd234767e30ff64dc8cd5d4b660a348a6bbbe31.tar.gz fml8-6fd234767e30ff64dc8cd5d4b660a348a6bbbe31.tar.bz2 fml8-6fd234767e30ff64dc8cd5d4b660a348a6bbbe31.zip | |
use Base::File, fix AUTOLOAD()
Diffstat (limited to 'fml/lib/FML/Ticket/System.pm')
| -rw-r--r-- | fml/lib/FML/Ticket/System.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm index b48481c4..922f6756 100644 --- a/fml/lib/FML/Ticket/System.pm +++ b/fml/lib/FML/Ticket/System.pm @@ -48,6 +48,16 @@ sub update_ticket_trace_cache my $db_dir = $config->{ ticket_db_dir }; my $ml_name = $config->{ ml_name }; my $cachefile = $db_dir. $ml_name; + my $umask = $config->{ default_umask } || 0022; + + printf "%o\n", (0777 & $umask); + + unless (-d $db_dir) { + use Base::File qw(mkdirhier); + mkdirhier($db_dir, 0755); + $self->error_reason( Base::File->error() ); + return; + } use FileHandle; my $fh = new FileHandle ">> $cachefile"; @@ -64,7 +74,11 @@ sub update_ticket_trace_cache sub AUTOLOAD { my ($self) = @_; - $self->error_reason("FYI: unknown method $AUTOLOAD is called"); + + eval q{ + use FML::Log; + Log("FYI: unknown method $AUTOLOAD is called"); + }; } |