diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-16 18:35:07 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-16 18:35:07 +0000 |
| commit | 8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb (patch) | |
| tree | 9521630ef9f9857cc3bb5c5ce606a958de4516cf /perl-install/install2.pm | |
| parent | cf616f12521a0f539e4f02f70d0210beb0102320 (diff) | |
| download | drakx-backup-do-not-use-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar drakx-backup-do-not-use-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.gz drakx-backup-do-not-use-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.bz2 drakx-backup-do-not-use-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.xz drakx-backup-do-not-use-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.zip | |
use new mkdir_p, rm_rf and cp_af from MDK::Common
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 5 |
1 files changed, 2 insertions, 3 deletions
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(); |