From 4322ca1da805315413ce1f47efe1280300c5cceb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 13 Feb 2009 17:05:07 +0000
Subject: (cp_with_progress) perl_checker fix

---
 perl-install/install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index b484248ee..8c33e6231 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -415,7 +415,7 @@ sub count_files {
 
 sub cp_with_progress {
     my $wait_message = shift;
-    my $current = shift;
+    my $_current = shift;
     my $total = shift;
     my $dest = pop @_;
     cp_with_progress_({ keep_special => 1 }, $wait_message, $total, \@_, $dest);
-- 
cgit v1.2.1