From fcd3259e9b2164520857d300f45588307de5b2cf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Jan 2001 18:15:23 +0000
Subject: fixes

---
 perl-install/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index fd1fbe059..e23206d4c 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -224,12 +224,12 @@ sub ask_from_entries_refH_powered_normalize {
 sub ask_from_entries_refH_powered {
     my ($o, $common, $l) = @_;
     ask_from_entries_refH_powered_normalize($o, $common, $l);
+    @$l or return 1;
     $o->ask_from_entries_refW($common, [ grep { !$_->{advanced} } @$l ], [ grep { $_->{advanced} } @$l ]);
 }
 sub ask_from_entries_refH_powered_no_check {
     my ($o, $common, $l) = @_;
     ask_from_entries_refH_powered_normalize($o, $common, $l);
-    @$l or return 1;
     $o->ask_from_entries_refW($common, [ grep { !$_->{advanced} } @$l ], [ grep { $_->{advanced} } @$l ]);
 }
 
-- 
cgit v1.2.1