From fc54b5ee208ba373d99ea692f5c81865d9ee2732 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 20 Oct 2005 16:08:17 +0000
Subject: Fix test for dangling symlink

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 476d473bb..4c5678472 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -357,7 +357,7 @@ sub unselectAllPackages($) {
 
 sub urpmidir() {
     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