diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
| commit | 4781e491c32fdfe0dbe3cf97a8aca90040a9406b (patch) | |
| tree | ca4f166763cc8be7bc01e943dcbf5a058758060d /perl-install/standalone/draksec | |
| parent | 5458ef92ec80fab427e4d69b5cdd22bb76b261d8 (diff) | |
| download | drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.gz drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.bz2 drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.xz drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.zip | |
new perl_checker compliance
Diffstat (limited to 'perl-install/standalone/draksec')
| -rwxr-xr-x | perl-install/standalone/draksec | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index b84279c3a..6a08e4f8b 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -74,11 +74,11 @@ Security Administrator: } sub new_editable_combo { - my ($string_list, $default_value) = @_; + my ($string_list, $o_default_value) = @_; my $w = new Gtk2::Combo(); $w->entry->set_editable(0); $w->set_popdown_strings(@$string_list) unless is_empty_array_ref $string_list; - $w->entry->set_text($default_value) if $default_value; + $w->entry->set_text($o_default_value) if $o_default_value; $w; } @@ -155,7 +155,7 @@ foreach ([ 'network', N("Network Options") ], [ 'system', N("System Options") ]) my $entry; my $default = $msec->get_function_default($i); if (member($default, @all_choices)) { - $values{$i} = new_editable_combo(member($default, @yesno_choices) ? \@yesno_choices : member($default, @alllocal_choices) ? \@alllocal_choices : ()); + $values{$i} = new_editable_combo(member($default, @yesno_choices) ? \@yesno_choices : if_(member($default, @alllocal_choices), \@alllocal_choices)); $entry = $values{$i}->entry; } else { $values{$i} = new Gtk2::Entry(); |