From d89cc787036b6b2613687b6bdfb86d0f8363ba81 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 13 Feb 2004 11:02:56 +0000
Subject: remove uneeded variable

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

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index f5686e0a5..707b3e5b3 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -927,7 +927,6 @@ sub new {
 		$draw1->modify_font(Gtk2::Pango::FontDescription->from_string(N("utopia 25")));
 		$draw1->signal_connect(realize => sub { set_back_pixbuf($draw1, $pixbuf_up) });
 		$draw1->signal_connect(expose_event => sub {
-					   my $height = $pixbuf_up->get_height;
                             my $layout = $draw1->create_pango_layout($::Wizard_title);
                             $draw1->window->draw_layout($draw1->style->white_gc, 40, 62, $layout);
 				       });
-- 
cgit v1.2.1