From 2bffccc63a0edc4979c5ed2831e961d93ebaef1a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 18 Nov 2013 15:52:23 +0100
Subject: prevent set_sensitive() to be called with undef parameter

(for drakguard)
---
 perl-install/mygtk3.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index aa17b71b0..4c9383c8e 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -131,6 +131,7 @@ sub _gtk {
     }
 
     if (my $sensitive_ref = delete $opts->{sensitive_ref}) {
+	$$sensitive_ref ||= 0;
 	my $set = sub { $w->set_sensitive($$sensitive_ref) };
 	gtkval_register($w, $sensitive_ref, $set);
 	$set->();
-- 
cgit v1.2.1