From 2464b52cfafd5bccf6cc35137748e4f008709d74 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Sep 2008 12:46:47 +0000
Subject: make things more clear (and protect us from someone using $o for
 something not "interactive" related in its prog ;)

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 112a7e501..0dd0e0fa8 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -936,7 +936,7 @@ sub ask_browse_tree_info {
 
     gtkpack__($box2, gtknew(($::isInstall ? 'Install_Button' : 'Button'), text => N("Help"), clicked => sub {
                             # will be a little small in standalone mode:
-                            if (defined $::o) {
+                            if ($::isInstall) {
                                 $::o->ask_warn(N("Help"), $common->{interactive_help}->());
                             } else {
 					   ask_warn(N("Help"), $common->{interactive_help}->());
-- 
cgit v1.2.1