From a908eff5182f1774163abdc724b81885b4cdaebf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 6 Feb 2008 14:14:06 +0000
Subject: 
 (build_tree,open_rpm_db,run_treeview_dialog,show_urpm_progress,Rpmdrake::widgets::new)
 kill warnings

---
 Rpmdrake/widgets.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Rpmdrake/widgets.pm')

diff --git a/Rpmdrake/widgets.pm b/Rpmdrake/widgets.pm
index a3f5e56a..a1f689a3 100644
--- a/Rpmdrake/widgets.pm
+++ b/Rpmdrake/widgets.pm
@@ -30,12 +30,13 @@ use lib qw(/usr/lib/libDrakX);
 use mygtk2 qw(gtknew);  #- do not import anything else, especially gtkadd() which conflicts with ugtk2 one
 use ugtk2 qw(:all);
 use Time::HiRes;
+use feature 'state';
 
 
 sub new {
     my ($_class) = @_;
     my $w = gtknew('TextView', editable => 0);
-    my $time if 0;
+    state $time;
     $w->signal_connect(size_allocate => sub {
         my ($w, $requisition) = @_;
         return if !ref($w->{anchors});
-- 
cgit v1.2.1