summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-12-05 14:12:15 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-12-05 14:12:15 +0000
commit5b00d8c58fc9c11a3d51820952487161cc8a4da6 (patch)
treec75e6ff3fc4e4615e5236009f4514314e1500fba /perl-install/ugtk2.pm
parent50dda33228ca3131595b8c86ec8f1a60a49a61dc (diff)
downloaddrakx-5b00d8c58fc9c11a3d51820952487161cc8a4da6.tar
drakx-5b00d8c58fc9c11a3d51820952487161cc8a4da6.tar.gz
drakx-5b00d8c58fc9c11a3d51820952487161cc8a4da6.tar.bz2
drakx-5b00d8c58fc9c11a3d51820952487161cc8a4da6.tar.xz
drakx-5b00d8c58fc9c11a3d51820952487161cc8a4da6.zip
remove unused $_lan
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm1
1 files changed, 0 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index dad83a12c..974710666 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -522,7 +522,6 @@ sub gtktext_insert {
sub gtkfontinfo {
my ($widget) = @_;
my $context = $widget->get_pango_context;
- my $_lan = $context->get_language;
my $metrics = $context->get_metrics($widget->style->get_font_desc, $context->get_language);
my %fontinfo;
foreach (qw(ascent descent approximate_char_width approximate_digit_width)) {