From e6b811e7c9d1e77349549b9ef40126a0cb560c61 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 15 Apr 2001 15:47:48 +0000
Subject: (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)

---
 perl-install/interactive.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive.pm')

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 {
-- 
cgit v1.2.1