From 32dfc90e18b52dc5bc3928a46c5e946158d7aee1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 22 Nov 2013 16:24:42 +0100
Subject: Pango->PANGO_WEIGHT_BOLD is not available through introspection

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

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

diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 59d8fae49..e136d6701 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -311,7 +311,7 @@ sub markup_to_TextView_format {
     foreach (@$l) {
 	my ($_txt, $attrs) = @$_;
 	if ($attrs) {
-         $attrs->{weight} eq 'bold' and $attrs->{weight} = Pango->PANGO_WEIGHT_BOLD;
+         $attrs->{weight} eq 'bold' and $attrs->{weight} = 'bold';
          $attrs->{size} eq 'larger' and do {
              $attrs->{scale} = 1.4399999999999; # PANGO_SCALE_X_LARGE: equivalent to Label's size => 'larger'
              delete $attrs->{size};
-- 
cgit v1.2.1