summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-05 07:14:24 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-05 07:14:24 +0000
commit925ac2fe687df723d5a6215267e69c2f1d0c0e70 (patch)
treeeef637fa6812d845f14be238d23791befc66d218 /perl-install
parent82b3ae6a29bbb58e9f847fdeb80ad3fc2b38df6e (diff)
downloaddrakx-925ac2fe687df723d5a6215267e69c2f1d0c0e70.tar
drakx-925ac2fe687df723d5a6215267e69c2f1d0c0e70.tar.gz
drakx-925ac2fe687df723d5a6215267e69c2f1d0c0e70.tar.bz2
drakx-925ac2fe687df723d5a6215267e69c2f1d0c0e70.tar.xz
drakx-925ac2fe687df723d5a6215267e69c2f1d0c0e70.zip
don't keep undefined options
Diffstat (limited to 'perl-install')
-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 e5433574b..09ce72e65 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -238,7 +238,7 @@ sub add_modify_entry {
my ($anonu, $anong);
$anonuid->get_text and $anonu = "anonuid=" . $anonuid->get_text;
$anongid->get_text and $anong = "anongid=" . $anongid->get_text;
- my $all_right = join(",", $luserid->get_text, $anonu, $anong, $lsync->get_text, $lsecure->get_text, $lr->get_text);
+ my $all_right = join(",", grep { defined $_ } $luserid->get_text, $anonu, $anong, $lsync->get_text, $lsecure->get_text, $lr->get_text);
if ($wanted =~ /add/) {
my $test_dir = $dir->get_text;
-d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;