From 636107c3857a2be8a60e5936cbbde41ceca4ef75 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 20 Feb 2003 11:05:20 +0000
Subject: fix $ok_clicked when there is no ok button

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

(limited to 'perl-install')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 89b4b8f3d..1473eda75 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -357,7 +357,7 @@ sub ask_fromW {
     my $total_size = 0;
     my $tooltips = Gtk2::Tooltips->new;
     my $ok_clicked = sub { 
-	$mainw->{ok}->get_property('sensitive') or return;
+	!$mainw->{ok} || $mainw->{ok}->get_property('sensitive') or return;
 	$mainw->{retval} = 1;
 	Gtk2->main_quit;
     };
-- 
cgit v1.2.1