From 74fb93802dbeddc4c8b9912511eea39a786656e0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 22 Feb 2002 17:17:41 +0000
Subject: workaround set_active failing

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

(limited to 'perl-install')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 489b006e5..1c2a3f770 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -829,7 +829,7 @@ sub chooseResolutionsGtk($$;$) {
     #- the set function is usefull to toggle the CheckButton with the callback being ignored
     my $ignore;
     my $no_human; # is the w2_combo->entry changed by a human?
-    my $set = sub { $ignore = 1; $_[0]->set_active(1); $ignore = 0; };
+    my $set = sub { $ignore = 1; $_[0] and $_[0]->set_active(1); $ignore = 0; };
 
     my %monitor;
     $monitor{$_} = [ gtkcreate_png("monitor-" . $_ . ".png") ] foreach (640, 800, 1024, 1280);
-- 
cgit v1.2.1