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.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'rpmdrake.pm')

diff --git a/rpmdrake.pm b/rpmdrake.pm
index 549428a3..04c3993c 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -40,7 +40,7 @@ use c;
 use POSIX qw(_exit);
 use common;
 use Locale::gettext;
-
+use feature 'state';
 
 our @ISA = qw(Exporter);
 our $VERSION = '2.27';
@@ -638,7 +638,7 @@ by Mandriva Linux Official Updates.")), %options
 sub show_urpm_progress {
     my ($label, $pb, $mode, $file, $percent, $total, $eta, $speed) = @_;
     $file =~ s|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)|$1xxxx$2|; #- if needed...
-    my $medium if 0;
+    state $medium;
     if ($mode eq 'copy') {
 	$pb->set_fraction(0);
 	$label->set_label(N("Copying file for medium `%s'...", $file));
-- 
cgit v1.2.1