summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/draknfs6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index 7a44d1932..e5433574b 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -149,7 +149,7 @@ sub add_modify_entry {
my $model = $treeview->get_model;
my $selection = $treeview->get_selection;
my $iter;
- my ($i, $dir, $access, $right, $all_right, $anonuid, $anongid, $options);
+ my ($i, $dir, $access, $right, $anonuid, $anongid, $options);
my ($lr, $luserid, $lsecure, $lsync);
undef $i;
undef $iter;
@@ -238,9 +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;
- foreach ($luserid->get_text, $anonu, $anong, $lsync->get_text, $lsecure->get_text, $lr->get_text) {
- $_ and $all_right = $_ . "," . $all_right;
- }
+ my $all_right = join(",", $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;