From 5b00d8c58fc9c11a3d51820952487161cc8a4da6 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 5 Dec 2002 14:12:15 +0000
Subject: remove unused $_lan

---
 perl-install/ugtk2.pm | 1 -
 1 file changed, 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

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)) {
-- 
cgit v1.2.1