From 5af2bf3c9b873b2bef4a241db7716f9c57105195 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 13 Aug 2008 09:35:12 +0000
Subject: (_gtk__Title1) do not render spurious "<span ...></span>" if nothing
 was passed

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

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index d56042139..c5987b3a0 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -388,7 +388,7 @@ sub title1_to_markup {
 sub _gtk__Title1 {
     my ($w, $opts) = @_;
     $opts ||= {};
-    $opts->{text_markup} = title1_to_markup(delete($opts->{label}));
+    $opts->{text_markup} = title1_to_markup(delete($opts->{label})) if $opts->{label};
     _gtk__Label($w, $opts);
 }
 
-- 
cgit v1.2.1