summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-16 18:35:07 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-16 18:35:07 +0000
commit8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb (patch)
tree9521630ef9f9857cc3bb5c5ce606a958de4516cf /perl-install/pkgs.pm
parentcf616f12521a0f539e4f02f70d0210beb0102320 (diff)
downloaddrakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar
drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.gz
drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.bz2
drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.xz
drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.zip
use new mkdir_p, rm_rf and cp_af from MDK::Common
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 8258ce9a1..3b14e298b 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -7,7 +7,6 @@ use vars qw(*LOG %preferred $limitMinTrans %compssListDesc);
use MDK::Common::System;
use common;
use install_any;
-use commands;
use run_program;
use detect_devices;
use log;
@@ -126,7 +125,7 @@ sub packageId {
sub cleanHeaders {
my ($prefix) = @_;
- commands::rm("-rf", "$prefix/tmp/headers") if -e "$prefix/tmp/headers";
+ rm_rf("$prefix/tmp/headers") if -e "$prefix/tmp/headers";
}
#- get all headers from an hdlist file.
@@ -831,7 +830,7 @@ sub rebuild_db_open_for_traversal {
} else {
log::l("rebuilding rpm database");
my $rebuilddb_dir = "$prefix/var/lib/rpmrebuilddb.$$";
- -d $rebuilddb_dir and log::l("removing stale directory $rebuilddb_dir"), commands::rm("-rf", $rebuilddb_dir);
+ -d $rebuilddb_dir and log::l("removing stale directory $rebuilddb_dir"), rm_rf($rebuilddb_dir);
c::rpmdbRebuild($prefix) or log::l("rebuilding of rpm database failed: ". c::rpmErrorString()), c::_exit(2);
@@ -862,7 +861,7 @@ sub clean_old_rpm_db {
providesindex.rpm requiredby.rpm triggerindex.rpm)) {
-e "$prefix/var/lib/rpm/$_" or next;
log::l("removing old rpm file $_");
- commands::rm("-f", "$prefix/var/lib/rpm/$_");
+ rm_rf("$prefix/var/lib/rpm/$_");
}
}
}