diff options
| author | fukachan <fukachan> | 2003-04-18 15:53:46 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-04-18 15:53:46 +0000 |
| commit | 5c731a237d74ea661d2ec548ec1b139ec0448127 (patch) | |
| tree | 6cbf655051ad4f7f6a8efdfb1b04678a47928dfb /fml/lib/FML/Command | |
| parent | f90a1090e8244f599f323ff5ec5a1efa2d73888d (diff) | |
| download | fml8-5c731a237d74ea661d2ec548ec1b139ec0448127.tar.gz fml8-5c731a237d74ea661d2ec548ec1b139ec0448127.tar.bz2 fml8-5c731a237d74ea661d2ec548ec1b139ec0448127.zip | |
mkdir $ml_home_prefix if not found
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/Admin/newml.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm index 5a27127b..6d13d2fe 100644 --- a/fml/lib/FML/Command/Admin/newml.pm +++ b/fml/lib/FML/Command/Admin/newml.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: newml.pm,v 1.61 2003/02/09 12:31:42 fukachan Exp $ +# $FML: newml.pm,v 1.62 2003/02/14 01:27:46 fukachan Exp $ # package FML::Command::Admin::newml; @@ -81,6 +81,11 @@ sub process ml_home_dir => $ml_home_dir, }; + # mkdir $ml_home_prefix if could. + unless (-d $ml_home_prefix) { + $curproc->mkdir($ml_home_prefix, "mode=public"); + } + # fundamental check croak("\$ml_name is not specified") unless $ml_name; croak("\$ml_home_dir is not specified") unless $ml_home_dir; |