From dc0a47429f346fefb557e0373a45c8ad11c166d0 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Jun 2012 18:59:06 +0000 Subject: (_remove_raw) adapt to URPM-4.2 --- 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 fa99cb730..9eb514028 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -1020,7 +1020,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($::prefix); + 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