From 6fd234767e30ff64dc8cd5d4b660a348a6bbbe31 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 24 Jan 2001 08:42:52 +0000
Subject: use Base::File, fix AUTOLOAD()

---
 fml/lib/FML/Ticket/System.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'fml/lib/FML/Ticket/System.pm')

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");
+    };
 }
 
 
-- 
cgit v1.2.1