summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-07 13:21:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-07 13:21:26 +0000
commit8b292063556c8b504c3a3077e06866903eb29f69 (patch)
treeef1162c8fb9a7e5054912b94c70e149d2f11bf04 /perl-install/any.pm
parentcc812497f536d469ba7fe0322c20396ea103e6bb (diff)
downloaddrakx-8b292063556c8b504c3a3077e06866903eb29f69.tar
drakx-8b292063556c8b504c3a3077e06866903eb29f69.tar.gz
drakx-8b292063556c8b504c3a3077e06866903eb29f69.tar.bz2
drakx-8b292063556c8b504c3a3077e06866903eb29f69.tar.xz
drakx-8b292063556c8b504c3a3077e06866903eb29f69.zip
fix fileshare custom config
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index ed6ad3ba0..097d77a34 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -989,14 +989,14 @@ Allowing this will permit users to simply click on "Share" in konqueror and naut
setVarsInSh($file, \%conf);
if ($r eq $l[2]) {
# custom
- if ($in->ask_from_('',
+ if ($in->ask_from_no_check(
{
- -e '/usr/bin/userdrake' ? (ok => _("Launch userdrake")) : (cancel => ''),
- title =>
+ -e '/usr/bin/userdrake' ? (ok => _("Launch userdrake"), cancel => _("Cancel")) : (cancel => ''),
+ messages =>
_("The per-user sharing uses the group \"fileshare\".
You can use userdrake to add a user in this group.")
- })) {
- if (fork) { exec "userdrake" or c::_exit(0) }
+ }, [])) {
+ if (!fork) { exec "userdrake" or c::_exit(0) }
}
}
}