diff options
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r-- | perl-install/install/pkgs.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 3317f0fbe..1512cf4f6 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -770,6 +770,12 @@ sub _filter_packages { } @packages; } +sub _set_dbi_cdb_nofsync { + if ((my $dbi_cdb = URPM::expand('%__dbi_cdb')) ne '%__dbi_cdb') { + URPM::add_macro("__dbi_cdb $dbi_cdb nofsync"); + } +} + sub install { my ($isUpgrade, $toInstall, $packages, $callback) = @_; my %packages; @@ -798,7 +804,9 @@ sub install { URPM::read_config_files(); # force loading libnss* getgrent(); - URPM::add_macro(join(' ', '__dbi_cdb', URPM::expand('%__dbi_cdb'), 'nofsync')); + + _set_dbi_cdb_nofsync(); + my $LOG = _openInstallLog(); $packages->{log} = $packages->{info} = $packages->{print} = sub { @@ -1063,7 +1071,7 @@ sub _remove_raw { log::l("removing: " . join(' ', @$to_remove)); URPM::read_config_files(); - URPM::add_macro(URPM::expand('__dbi_cdb %__dbi_cdb nofsync')); + _set_dbi_cdb_nofsync(); my $db = open_rpm_db_rw() or die "error opening RPM database: ", URPM::rpmErrorString(); my $trans = $db->create_transaction; |