summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-20 01:17:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-20 01:17:20 +0000
commit4beb3c6f70e05e7c2cafd039bd3742637716ef73 (patch)
tree1509cfb2b96b07ea4fa088ce353d74809ad6f495 /perl-install/interactive.pm
parent2d5ee5d016f682f357a075fa7c8e22868ff40f69 (diff)
downloaddrakx-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.pm4
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 {} });
}