From bfeb73548c5dbbc05bc2f0cc0621104921b6b094 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 6 Sep 2013 12:57:13 +0200
Subject: we no longuer have access to PANGO_PIXELS() with introspection

=> let's use the proper API instead
we could alternatively have divide by Pango::SCALE, but this is cleaner
---
 perl-install/ugtk3.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index f442445e6..9499e8c56 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -653,7 +653,7 @@ sub gtkfontinfo {
     foreach (qw(ascent descent approximate_char_width approximate_digit_width)) {
 	no strict;
 	my $func = "get_$_";
-	$fontinfo{$_} = Pango->pixels($metrics->$func);
+	$fontinfo{$_} = Pango::units_to_double($metrics->$func);
     }
     %fontinfo;
 }
-- 
cgit v1.2.1