diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-20 01:17:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-20 01:17:20 +0000 |
| commit | 4beb3c6f70e05e7c2cafd039bd3742637716ef73 (patch) | |
| tree | 1509cfb2b96b07ea4fa088ce353d74809ad6f495 /perl-install/interactive.pm | |
| parent | 2d5ee5d016f682f357a075fa7c8e22868ff40f69 (diff) | |
| download | drakx-4beb3c6f70e05e7c2cafd039bd3742637716ef73.tar drakx-4beb3c6f70e05e7c2cafd039bd3742637716ef73.tar.gz drakx-4beb3c6f70e05e7c2cafd039bd3742637716ef73.tar.bz2 drakx-4beb3c6f70e05e7c2cafd039bd3742637716ef73.tar.xz drakx-4beb3c6f70e05e7c2cafd039bd3742637716ef73.zip | |
have less warnings when debugging
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index d9c4b2f3b..b06ebdee2 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -348,7 +348,7 @@ sub ask_from_normalize { #- don't display empty lists and one element lists @$l = grep { if ($_->{list} && $_->{not_edit} && !$_->{allow_empty_list}) { - if (@{$_->{list}} == ()) { + if (!@{$_->{list}}) { eval { require 'log.pm'; #- "require log" causes some pb, perl thinking that "log" is the log() function log::l("ask_from_normalize: empty list for $_->{label}\n" . backtrace()); @@ -367,7 +367,7 @@ sub ask_from_normalize { $common->{interactive_help} ||= $common->{interactive_help_id} && $o->interactive_help_sub_get_id($common->{interactive_help_id}); $common->{advanced_label} ||= N("Advanced"); $common->{advanced_label_close} ||= N("Basic"); - $common->{$_} = [ deref($common->{$_}) ] foreach qw(messages advanced_messages); + $common->{$_} = $common->{$_} ? [ deref($common->{$_}) ] : [] foreach qw(messages advanced_messages); add2hash_($common->{callbacks} ||= {}, { changed => sub {}, focus_out => sub {}, complete => sub { 0 }, canceled => sub { 0 }, advanced => sub {} }); } |