summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/pkgs.pm10
1 files changed, 3 insertions, 7 deletions
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);