From 43ce8bb3cf8dddbfbbb4ae401912fb3c5f12e148 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Mon, 3 Mar 2003 15:27:22 +0000
Subject: bug fix: try to mkdir $dir ($subdir) when $use_subdir enabled.

---
 fml/lib/FML/Article.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/fml/lib/FML/Article.pm b/fml/lib/FML/Article.pm
index b5efce58..13d40555 100644
--- a/fml/lib/FML/Article.pm
+++ b/fml/lib/FML/Article.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Article.pm,v 1.51 2002/12/24 10:19:38 fukachan Exp $
+# $FML: Article.pm,v 1.52 2002/12/26 15:07:49 fukachan Exp $
 #
 
 package FML::Article;
@@ -284,10 +284,12 @@ sub _filepath
 	subdir_unit => $unit,
     } ;
     my $file = $spool->filepath($args);
-    my $dir  = $spool->dirpath($args);
+    my $dir  = $spool->dirpath($args); # spool/ or spool/$subdir/
 
-    unless (-d $dir) {
-	$curproc->mkdir($dir, "mode=private");
+    if ($use_subdir) {
+	unless (-d $dir) {
+	    $curproc->mkdir($dir, "mode=private");
+	}
     }
 
     return ($file, $dir);
@@ -385,7 +387,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
-- 
cgit v1.2.1