summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-30 14:35:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-30 14:35:23 +0000
commit18011f2e9d699e37c6da8bec2d02de2b84a96a85 (patch)
treefdf782dfce0c929d31fe317a8b22c62518c19f56 /perl-install/pkgs.pm
parented9b8286889057ba6a4983d4afb266d74cac20f0 (diff)
downloaddrakx-backup-do-not-use-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar
drakx-backup-do-not-use-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar.gz
drakx-backup-do-not-use-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar.bz2
drakx-backup-do-not-use-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar.xz
drakx-backup-do-not-use-18011f2e9d699e37c6da8bec2d02de2b84a96a85.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm11
1 files changed, 3 insertions, 8 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 270272a1f..54045d30e 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -11,6 +11,7 @@ use run_program;
use log;
use pkgs;
use fs;
+use loopback;
use lang;
use c;
@@ -397,7 +398,6 @@ sub readCompss {
s/#.*//;
if (/^(\S+)/) {
- s|:|/|g;
$p = $1 if /^(\S+)/;
} else {
/(\S+)/;
@@ -729,7 +729,7 @@ sub install($$$;$$) {
return if $::g_auto_install || !scalar(@$toInstall);
#- for root loopback'ed /boot
- my $loop_boot = readlink "$prefix/boot"; unlink "$prefix/boot"; mkdir "$prefix/boot", 0755;
+ my $loop_boot = loopback::prepare_boot($prefix);
#- first stage to extract some important informations
#- about the packages selected. this is used to select
@@ -834,12 +834,7 @@ sub install($$$;$$) {
cleanHeaders($prefix);
- if ($loop_boot) {
- my @files = glob_("$prefix/boot/*");
- commands::cp("-f", @files, $loop_boot) if @files;
- commands::rm("-rf", "$prefix/boot");
- symlink $loop_boot, "$prefix/boot";
- }
+ loopback::save_boot($loop_boot);
}
sub remove($$) {