From 378514ee00bb42b293a263ce67e93b5738d9cb6e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 2 Sep 2005 10:04:55 +0000 Subject: rename pkgs::rpmDbOpenForInstall() to pkgs::open_rpm_db_rw() --- perl-install/pkgs.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index cf56128c8..121e421c8 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -899,7 +899,7 @@ sub rpmDbCleanLogs() { unlink glob("$::prefix/var/lib/rpm/__db.*"); } -sub rpmDbOpenForInstall() { +sub open_rpm_db_rw() { my $db = URPM::DB::open($::prefix, 1); $db and log::l("opened rpmdb for writing in $::prefix"); $db; @@ -1126,7 +1126,7 @@ sub install { $close->($_); } } else { - my $db = rpmDbOpenForInstall() or die "error opening RPM database: ", URPM::rpmErrorString(); + my $db = open_rpm_db_rw() or die "error opening RPM database: ", URPM::rpmErrorString(); my $trans = $db->create_transaction($::prefix); if ($retry_pkg) { log::l("opened rpm database for retry transaction of 1 package only"); @@ -1250,7 +1250,7 @@ sub remove_raw { log::l("removing: " . join(' ', @$to_remove)); - my $db = rpmDbOpenForInstall() or die "error opening RPM database: ", URPM::rpmErrorString(); + my $db = open_rpm_db_rw() or die "error opening RPM database: ", URPM::rpmErrorString(); my $trans = $db->create_transaction($::prefix); #- stuff remove all packages that matches $p, not a problem since $p has name-version-release format. -- cgit v1.2.1