From 817584ff1d58b3455b4256fa90718be3a050a542 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 22 Sep 2008 09:12:13 +0000
Subject: (markup_to_TextView_format) prevent uselessly loading Gtk2::Pango
 when rendering with bigger fonts

---
 perl-install/ugtk2.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 0bd9726cd..66abbb50f 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -313,8 +313,7 @@ sub markup_to_TextView_format {
 	if ($attrs) {
          $attrs->{weight} eq 'bold' and $attrs->{weight} = do { require Gtk2::Pango; Gtk2::Pango->PANGO_WEIGHT_BOLD };
          $attrs->{size} eq 'larger' and do {
-             require Gtk2::Pango;
-             $attrs->{scale} = Gtk2::Pango->PANGO_SCALE_X_LARGE; # equivalent to Label's size => 'larger'
+             $attrs->{scale} = Gtk2::Pango->scale_x_large; # equivalent to Label's size => 'larger'
              delete $attrs->{size};
          };
      }
-- 
cgit v1.2.1