summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-09-06 12:57:13 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:13 +0100
commitbfeb73548c5dbbc05bc2f0cc0621104921b6b094 (patch)
tree74fb1d3697805f465930076c159b11ec60688969 /perl-install
parent53e3518613d628d347ddd8e0b7fc2094458a9864 (diff)
downloaddrakx-bfeb73548c5dbbc05bc2f0cc0621104921b6b094.tar
drakx-bfeb73548c5dbbc05bc2f0cc0621104921b6b094.tar.gz
drakx-bfeb73548c5dbbc05bc2f0cc0621104921b6b094.tar.bz2
drakx-bfeb73548c5dbbc05bc2f0cc0621104921b6b094.tar.xz
drakx-bfeb73548c5dbbc05bc2f0cc0621104921b6b094.zip
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
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk3.pm2
1 files changed, 1 insertions, 1 deletions
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;
}