diff options
author | Antoine Ginies <aginies@mandriva.com> | 2005-08-29 15:40:48 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2005-08-29 15:40:48 +0000 |
commit | a361af14cd6fa4e5eded013a0125a2bf983ed7df (patch) | |
tree | 559cf6e3a6e294b3137a14541fbf108b6b7c696f /perl-install/standalone | |
parent | a3e7a05cf1ab594fe1398a3cf3709180d6641bda (diff) | |
download | drakx-backup-do-not-use-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar drakx-backup-do-not-use-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar.gz drakx-backup-do-not-use-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar.bz2 drakx-backup-do-not-use-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar.xz drakx-backup-do-not-use-a361af14cd6fa4e5eded013a0125a2bf983ed7df.zip |
create dir if it does not exist
Diffstat (limited to 'perl-install/standalone')
-rw-r--r-- | perl-install/standalone/draknfs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs index 4cf3156c7..851199ced 100644 --- a/perl-install/standalone/draknfs +++ b/perl-install/standalone/draknfs @@ -430,7 +430,7 @@ sub add_modify_entry { my $all_right = join(",", grep { defined $_ } $luserid_toput, $anonu, $anong, $lsync_data, $lsecure_data, $lr_data); my $test_dir = $dir->get_text; - -d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return; + mkdir_p($test_dir) or err_dialog(N("Error!"), N("Can't create this directory.")) and return; my $test_access = $access->child->get_text; $test_access or err_dialog(N("Error!"), N("You must specify hosts access.")) and return; if ($wanted =~ /add/) { |