From 22849669f61beb6a5b2120142dbdb5fe4971cebe Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 20 Oct 2005 16:02:51 +0000
Subject: old perl_checker compliance

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

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index d03b3be9f..59f82cdcc 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -346,7 +346,7 @@ sub unselectAllPackages($) {
 sub urpmidir {
     my ($prefix) = @_;
     my $v = "$prefix/var/lib/urpmi";
-    -l $v && !-e _ and unlink $v and mkdir $v, 0755; #- dangling symlink
+    -l $v && !-e $v and unlink $v and mkdir $v, 0755; #- dangling symlink
     -w $v ? $v : '/tmp';
 }
 
-- 
cgit v1.2.1