diff options
| author | fukachan <fukachan> | 2003-03-03 15:27:22 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-03 15:27:22 +0000 |
| commit | 43ce8bb3cf8dddbfbbb4ae401912fb3c5f12e148 (patch) | |
| tree | a81fa4a3fe3a0c3f83bed4480d39ad688a1680c9 | |
| parent | a775e3cd677c4481c1b0944888dbe41a00672095 (diff) | |
| download | fml8-43ce8bb3cf8dddbfbbb4ae401912fb3c5f12e148.tar.gz fml8-43ce8bb3cf8dddbfbbb4ae401912fb3c5f12e148.tar.bz2 fml8-43ce8bb3cf8dddbfbbb4ae401912fb3c5f12e148.zip | |
bug fix: try to mkdir $dir ($subdir) when $use_subdir enabled.
| -rw-r--r-- | fml/lib/FML/Article.pm | 14 |
1 files 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. |