From 925ac2fe687df723d5a6215267e69c2f1d0c0e70 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 5 Jul 2005 07:14:24 +0000 Subject: don't keep undefined options --- perl-install/standalone/draknfs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- cgit v1.2.1