From 6a6f6637fbf6a87f5d58f3c496767b832287478d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Feb 2003 14:31:13 +0000
Subject: fix pop_it...

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

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index f4ba5a7c6..f508c9e96 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -748,7 +748,7 @@ sub new {
     $o->{pop_it} ||= $pop_it || $::WizardTable && do {
 	my @l = $::WizardTable->get_children;
 	pop @l if !$::isInstall; #- don't take into account the DrawingArea
-	@l && $l[-1]->visible;
+	any { $_->visible } @l;
     };
 
     if ($::isWizard && !$o->{pop_it}) {
-- 
cgit v1.2.1