diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-07-05 07:08:27 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-07-05 07:08:27 +0000 |
| commit | 82b3ae6a29bbb58e9f847fdeb80ad3fc2b38df6e (patch) | |
| tree | 3c91a1aca255b14822af5b06877b68b68e903ae0 /perl-install | |
| parent | 8ae579359dffda15f79c7cfae704e9b2cb4bf09e (diff) | |
| download | drakx-82b3ae6a29bbb58e9f847fdeb80ad3fc2b38df6e.tar drakx-82b3ae6a29bbb58e9f847fdeb80ad3fc2b38df6e.tar.gz drakx-82b3ae6a29bbb58e9f847fdeb80ad3fc2b38df6e.tar.bz2 drakx-82b3ae6a29bbb58e9f847fdeb80ad3fc2b38df6e.tar.xz drakx-82b3ae6a29bbb58e9f847fdeb80ad3fc2b38df6e.zip | |
use join()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/draknfs | 6 |
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; |