summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-29 15:40:48 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-29 15:40:48 +0000
commita361af14cd6fa4e5eded013a0125a2bf983ed7df (patch)
tree559cf6e3a6e294b3137a14541fbf108b6b7c696f /perl-install/standalone
parenta3e7a05cf1ab594fe1398a3cf3709180d6641bda (diff)
downloaddrakx-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar
drakx-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar.gz
drakx-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar.bz2
drakx-a361af14cd6fa4e5eded013a0125a2bf983ed7df.tar.xz
drakx-a361af14cd6fa4e5eded013a0125a2bf983ed7df.zip
create dir if it does not exist
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/draknfs2
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/) {