From 01754e05a0ad446288d639c8d94042c7385e1ee9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 2 Oct 2007 12:01:48 +0000 Subject: create urpm::sys::clean_rpmdb_shared_regions() and use it --- urpm/sys.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'urpm') diff --git a/urpm/sys.pm b/urpm/sys.pm index da7736d9..6d2cdec1 100644 --- a/urpm/sys.pm +++ b/urpm/sys.pm @@ -108,6 +108,11 @@ sub find_mntpoints { @mntpoints; } +sub clean_rpmdb_shared_regions { + my ($prefix) = @_; + unlink glob("$prefix/var/lib/rpm/__db.*"); +} + sub proc_mounts() { my @l = cat_('/proc/mounts') or warn "Can't read /proc/mounts: $!\n"; @l; -- cgit v1.2.1