summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-22 17:43:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-22 17:43:23 +0000
commita9c7dd5f52b7f4c838d25e9342c705ef922f1118 (patch)
tree11290eedbaef1b2f2afbe83a40a9f60dc1aab659 /perl-install
parenteec5775e4d4372f113510ca537c3e45aeb169364 (diff)
downloaddrakx-a9c7dd5f52b7f4c838d25e9342c705ef922f1118.tar
drakx-a9c7dd5f52b7f4c838d25e9342c705ef922f1118.tar.gz
drakx-a9c7dd5f52b7f4c838d25e9342c705ef922f1118.tar.bz2
drakx-a9c7dd5f52b7f4c838d25e9342c705ef922f1118.tar.xz
drakx-a9c7dd5f52b7f4c838d25e9342c705ef922f1118.zip
simplify
Diffstat (limited to 'perl-install')
-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);