summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-11-16 17:13:33 +0000
committerThierry Vignaud <tv@mageia.org>2012-11-16 17:13:33 +0000
commit4cbaa32bc492ce40e144c1950446e75fd92b46e1 (patch)
tree9cf8653aaba442b62454510d60ffef7626879a67 /perl-install
parent02954786fe1c3e592ffd6756ec1b110801b2705f (diff)
downloaddrakx-4cbaa32bc492ce40e144c1950446e75fd92b46e1.tar
drakx-4cbaa32bc492ce40e144c1950446e75fd92b46e1.tar.gz
drakx-4cbaa32bc492ce40e144c1950446e75fd92b46e1.tar.bz2
drakx-4cbaa32bc492ce40e144c1950446e75fd92b46e1.tar.xz
drakx-4cbaa32bc492ce40e144c1950446e75fd92b46e1.zip
perl_checker cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/pkgs.pm2
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;