From 8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 16 Sep 2001 18:35:07 +0000
Subject: use new mkdir_p, rm_rf and cp_af from MDK::Common

---
 perl-install/install2.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index fa26935fd..fb6d0f21c 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -12,7 +12,6 @@ use steps;
 use common;
 use install_any qw(:all);
 use install_steps;
-use commands;
 use lang;
 use keyboard;
 use mouse;
@@ -584,14 +583,14 @@ sub main {
     #- make sure failed upgrade will not hurt too much.
     install_steps::cleanIfFailedUpgrade($o);
 
-    -e "$o->{prefix}/usr/sbin/urpmi.update" or eval { commands::rm("-rf", "$o->{prefix}/var/lib/urpmi") };
+    -e "$o->{prefix}/usr/sbin/urpmi.update" or eval { rm_rf("$o->{prefix}/var/lib/urpmi") };
 
     #- mainly for auto_install's
     run_program::run("bash", "-c", $o->{postInstallNonRooted}) if $o->{postInstallNonRooted};
     run_program::rooted($o->{prefix}, "sh", "-c", $o->{postInstall}) if $o->{postInstall};
 
     #- have the really bleeding edge ddebug.log
-    eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") };
+    eval { cp_af("/tmp/ddebug.log", "$o->{prefix}/root") };
 
     #- ala pixel? :-) [fpons]
     common::sync(); common::sync();
-- 
cgit v1.2.1