From ec0513e059d437920ee55bc3838eb969ac42b7e1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 24 Nov 2013 22:35:33 +0100
Subject: fix displaying ads by default

after commit 81bb64a79ef, this was no longer true
---
 perl-install/mygtk3.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index 6db4651c9..421a9f419 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -185,9 +185,8 @@ sub _gtk_any_Button {
     $w->set_relief(delete $opts->{relief}) if exists $opts->{relief};
 
     if (my $text_ref = delete $opts->{text_ref}) {
-	$$text_ref ||= '';
 	my $set = sub {
-	    eval { $w->set_label(may_apply($w->{format}, $$text_ref)) };
+	    eval { $w->set_label(may_apply($w->{format}, $$text_ref || '')) };
 	};
 	gtkval_register($w, $text_ref, $set);
 	$set->();
-- 
cgit v1.2.1