diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-11-16 17:13:33 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-11-16 17:13:33 +0000 |
commit | 78b7d3b3d345cd246442ee738796278686786707 (patch) | |
tree | 9cf8653aaba442b62454510d60ffef7626879a67 /perl-install/install/pkgs.pm | |
parent | 5c87f7f660e679d2fa5070ce34134d22389444d1 (diff) | |
download | drakx-backup-do-not-use-78b7d3b3d345cd246442ee738796278686786707.tar drakx-backup-do-not-use-78b7d3b3d345cd246442ee738796278686786707.tar.gz drakx-backup-do-not-use-78b7d3b3d345cd246442ee738796278686786707.tar.bz2 drakx-backup-do-not-use-78b7d3b3d345cd246442ee738796278686786707.tar.xz drakx-backup-do-not-use-78b7d3b3d345cd246442ee738796278686786707.zip |
perl_checker cleanup
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r-- | perl-install/install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 0115cd016..9bb967b47 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -1023,7 +1023,7 @@ sub _remove_raw { URPM::add_macro(URPM::expand('__dbi_cdb %__dbi_cdb nofsync')); my $db = open_rpm_db_rw() or die "error opening RPM database: ", URPM::rpmErrorString(); - my $trans = $db->create_transaction(); + my $trans = $db->create_transaction; #- stuff remove all packages that matches $p, not a problem since $p has name-version-release format. $trans->remove($_) foreach @$to_remove; |