From a9c7dd5f52b7f4c838d25e9342c705ef922f1118 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Dec 2004 17:43:23 +0000
Subject: simplify

---
 perl-install/pkgs.pm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 79faf1783..010ba9568 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -877,13 +877,9 @@ sub rpmDbOpenForInstall() {
 
     #- there is a bug in rpm 4.2 where all operations for accessing rpmdb files are not
     #- always done using prefix, we need to setup a symlink in /var/lib/rpm for that ...
-    unless (-e "/var/lib/rpm") {
-	#- check if at some time a /var/lib directory has been made.
-	if (-d "/var/lib") {
-	    symlinkf "$::prefix/var/lib/rpm", "/var/lib/rpm";
-	} else {
-	    symlinkf "$::prefix/var/lib", "/var/lib";
-	}
+    if (! -d '/var/lib/rpm') {
+	mkdir_p('/var/lib');
+	symlinkf "$::prefix/var/lib/rpm", "/var/lib/rpm";
     }
 
     my $db = URPM::DB::open($::prefix, 1);
-- 
cgit v1.2.1