summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-15 15:47:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-15 15:47:48 +0000
commite6b811e7c9d1e77349549b9ef40126a0cb560c61 (patch)
treea8ca45048b3c09031cc11ebc5299bd1b6320369f /perl-install/interactive.pm
parenteedc8fef2780ef462fe016b7ddad8850302b9ad1 (diff)
downloaddrakx-e6b811e7c9d1e77349549b9ef40126a0cb560c61.tar
drakx-e6b811e7c9d1e77349549b9ef40126a0cb560c61.tar.gz
drakx-e6b811e7c9d1e77349549b9ef40126a0cb560c61.tar.bz2
drakx-e6b811e7c9d1e77349549b9ef40126a0cb560c61.tar.xz
drakx-e6b811e7c9d1e77349549b9ef40126a0cb560c61.zip
(ask_from_entries_refH_powered_normalize): add an eval around "require log" to keep perl from going totally mad (getting things like v18.843.482 required--this is only v5.6.0)
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index c16e98d51..ec14ab59c 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -249,8 +249,10 @@ sub ask_from_entries_refH_powered_normalize {
@$l = grep {
if ($_->{list} && $_->{not_edit}) {
if (@{$_->{list}} == ()) {
- require log;
- log::l("ask_from_entries_refH_powered_normalize: empty list\n" . common::backtrace());
+ eval {
+ require log;
+ log::l("ask_from_entries_refH_powered_normalize: empty list for $_->{label}\n" . common::backtrace());
+ };
}
@{$_->{list}} > 1;
} else {