From 78b7d3b3d345cd246442ee738796278686786707 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 16 Nov 2012 17:13:33 +0000
Subject: perl_checker cleanup

---
 perl-install/install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install/pkgs.pm')

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;
-- 
cgit v1.2.1