summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-13 00:05:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-13 00:05:51 +0000
commitd39a2a6574b0506ada086f096b05b80e9b156ec2 (patch)
tree49c34ed68d626c98c788cc4b66aaa62f1009c34b /perl-install/install_steps.pm
parentd500c7d827531b45bf5520162866930d3cac9ea8 (diff)
downloaddrakx-backup-do-not-use-d39a2a6574b0506ada086f096b05b80e9b156ec2.tar
drakx-backup-do-not-use-d39a2a6574b0506ada086f096b05b80e9b156ec2.tar.gz
drakx-backup-do-not-use-d39a2a6574b0506ada086f096b05b80e9b156ec2.tar.bz2
drakx-backup-do-not-use-d39a2a6574b0506ada086f096b05b80e9b156ec2.tar.xz
drakx-backup-do-not-use-d39a2a6574b0506ada086f096b05b80e9b156ec2.zip
renamef created and used
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm11
1 files changed, 4 insertions, 7 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 598cada9c..06137b3cb 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -343,15 +343,13 @@ sub installPackages($$) { #- complete REWORK, TODO and TOCHECK!
#- important files and restore them after.
foreach (@{$o->{toSave} || []}) {
if (-e "$o->{prefix}/$_") {
- unlink "$o->{prefix}/$_.mdkgisave";
- eval { commands::cp("$o->{prefix}/$_", "$o->{prefix}/$_.mdkgisave") };
+ eval { commands::cp("-f", "$o->{prefix}/$_", "$o->{prefix}/$_.mdkgisave") };
}
}
pkgs::remove($o->{prefix}, $o->{toRemove});
foreach (@{$o->{toSave} || []}) {
if (-e "$o->{prefix}/$_.mdkgisave") {
- unlink "$o->{prefix}/$_";
- rename "$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_";
+ renamef("$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_");
}
}
$o->{toSave} = [];
@@ -480,9 +478,8 @@ GridHeight=70
install_any::kdemove_desktop_file($o->{prefix});
foreach (@filesToSaveForUpgrade) {
- if (-e "$o->{prefix}$_.mdkgisave") {
- unlink "$o->{prefix}$_.mdkgiorig"; rename "$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_.mdkgiorig";
- }
+ renamef("$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_.mdkgiorig")
+ if -e "$o->{prefix}$_.mdkgisave";
}
}
}