summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2004-02-24 19:40:57 +0000
committerFlorent Villard <warly@mandriva.com>2004-02-24 19:40:57 +0000
commit2caf60acc33f204a7d99fb357dbb6ee4c031fe20 (patch)
treeb6d676d3f8d08e520296ecaf798494f19d9401bb /perl-install
parentc939a645f24bbe024dec70c4267d5540f1365015 (diff)
downloaddrakx-2caf60acc33f204a7d99fb357dbb6ee4c031fe20.tar
drakx-2caf60acc33f204a7d99fb357dbb6ee4c031fe20.tar.gz
drakx-2caf60acc33f204a7d99fb357dbb6ee4c031fe20.tar.bz2
drakx-2caf60acc33f204a7d99fb357dbb6ee4c031fe20.tar.xz
drakx-2caf60acc33f204a7d99fb357dbb6ee4c031fe20.zip
add PRINTER alongside with INSTALL not to duplicate printer related packages into OFFICE
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index bcc440e65..481c3331f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -524,7 +524,7 @@ sub read_rpmsrate {
my $p = packageByName($packages, $_) or next;
my @m2 = map { if_(/locales-(.*)/, qq(LOCALES"$1")) } $p->requires_nosense;
my @m3 = ((grep { !/^\d$/ } @m), @m2);
- if (member('INSTALL', @m3)) {
+ if (member('INSTALL', @m3) || member('PRINTER', @m3)) {
member('NOCOPY', @m3) or push @{$packages->{needToCopy} ||= []}, $_;
next; #- don't need to put INSTALL flag for a package.
}
@@ -791,7 +791,7 @@ sub rpmDbOpen {
my $rebuilddb_dir = "$prefix/var/lib/rpmrebuilddb.$$";
-d $rebuilddb_dir and log::l("removing stale directory $rebuilddb_dir"), rm_rf($rebuilddb_dir);
- URPM::DB::rebuild($prefix) or log::l("rebuilding of rpm database failed: " . c::rpmErrorString()), c::_exit(2);
+ URPM::DB::rebuild("$prefix/") or log::l("rebuilding of rpm database failed: " . c::rpmErrorString()), c::_exit(2);
c::_exit(0);
}