From d76b9872f57a5bdfd4e6dea08b1d7f0023cd3d04 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 27 Nov 2002 16:00:02 +0000
Subject: reflect calling style change of PANGO_PIXELS

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

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index d55cf0e6c..8596f2472 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -29,7 +29,6 @@ use log;
 use common;
 
 use Gtk2;
-use Gtk2::Pango;  #- we use non method Gtk2::Pango::PANGO_PIXELS so we can't rely on lazyloading
 
 if (!$::no_ugtk_init) {
     !$ENV{DISPLAY} || system('/usr/X11R6/bin/xtest') and die "Cannot be run in console mode.\n";
@@ -532,7 +531,7 @@ sub gtkfontinfo {
     foreach (qw(ascent descent approximate_char_width approximate_digit_width)) {
 	no strict;
 	my $func = "get_$_";
-	$fontinfo{$_} = Gtk2::Pango::Pango::PANGO_PIXELS($metrics->$func);
+	$fontinfo{$_} = Gtk2::Pango->PANGO_PIXELS($metrics->$func);
     }
     $metrics->unref;
     %fontinfo;
-- 
cgit v1.2.1