diff options
| author | fukachan <fukachan> | 2004-11-25 12:20:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-11-25 12:20:06 +0000 |
| commit | 6523f593569f25768d0de60bfa1270ba5ddbf621 (patch) | |
| tree | 367b44e5a0bbf1f6947e64918017cb84c8a99e7f | |
| parent | 624125e01875c34442f4b51f6b7d7a9c00de690e (diff) | |
| download | fml8-6523f593569f25768d0de60bfa1270ba5ddbf621.tar.gz fml8-6523f593569f25768d0de60bfa1270ba5ddbf621.tar.bz2 fml8-6523f593569f25768d0de60bfa1270ba5ddbf621.zip | |
o mkdir(): bug fix defined check for specified mode.
o implement default_config_cf_filepath() method.
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index fc111f78..ce073d2c 100644 --- a/fml/lib/FML/Process/Utils.pm +++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.124 2004/10/09 12:02:10 fukachan Exp $ +# $FML: Utils.pm,v 1.125 2004/11/21 07:00:34 fukachan Exp $ # package FML::Process::Utils; @@ -322,7 +322,7 @@ sub mkdir } elsif ($mode =~ /mode=(\S+)/o) { my $xmode = "directory_${1}_mode"; - if (defined $config->{ $xmode }) { + if (defined $config->{ $xmode } && $config->{ $xmode }) { $curproc->_mkpath_str($dir, $config->{ $xmode }); } else { @@ -1282,6 +1282,19 @@ sub is_config_cf_exist } +# Descriptions: return default config.cf path. +# Arguments: OBJ($curproc) +# Side Effects: none +# Return Value: STR +sub default_config_cf_filepath +{ + my ($curproc) = @_; + my $main_cf = $curproc->{ __parent_args }->{ main_cf }; + + return $main_cf->{ default_config_cf }; +} + + =head2 get_cui_menu() return menu configuration path for CUI. |