summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-08 16:50:01 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-08 16:50:01 +0000
commit9ba6ea7a4a9b65dd48f5efacac95483e8036f9ee (patch)
treee0fa35b5c9f5599d4bdc1609ce6017372088e9f6 /perl-install
parent72609c6930a5a3e00df243247ca3f19c4c4c06da (diff)
downloaddrakx-backup-do-not-use-9ba6ea7a4a9b65dd48f5efacac95483e8036f9ee.tar
drakx-backup-do-not-use-9ba6ea7a4a9b65dd48f5efacac95483e8036f9ee.tar.gz
drakx-backup-do-not-use-9ba6ea7a4a9b65dd48f5efacac95483e8036f9ee.tar.bz2
drakx-backup-do-not-use-9ba6ea7a4a9b65dd48f5efacac95483e8036f9ee.tar.xz
drakx-backup-do-not-use-9ba6ea7a4a9b65dd48f5efacac95483e8036f9ee.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_any.pm4
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index cd03399d5..0c47f513f 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -121,7 +121,7 @@ $o = $::o = {
autoSCSI => 0,
mkbootdisk => 1, #- no mkbootdisk if 0 or undef, find a floppy with 1
#- packages => [ qw() ],
- partitioning => { clearall => 0, eraseBadPartitions => 0, auto_allocate => 0, autoformat => 0, readonly => 1 },
+ partitioning => { clearall => 0, eraseBadPartitions => 0, auto_allocate => 0, autoformat => 0, readonly => 0 },
#- partitions => [
#- { mntpoint => "/boot", size => 16 << 11, type => 0x83 },
#- { mntpoint => "/", size => 256 << 11, type => 0x83 },
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 9f503bbce..a2864957f 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -216,14 +216,14 @@ sub searchAndMount4Upgrade {
my $r; unless ($r = $root->{realMntpoint}) {
$r = $o->{prefix};
$root->{mntpoint} = "/";
- log::l("trying to mount root partition $root->{device}");
+ log::l("trying to mount partition $root->{device}");
eval { fs::mount_part($root, $o->{prefix}, 'readonly') };
$r = "/*ERROR*" if $@;
}
$found = -d "$r/etc/sysconfig" && [ fs::read_fstab("$r/etc/fstab") ];
unless ($root->{realMntpoint}) {
- log::l("umounting non root partition $root->{device}");
+ log::l("umounting partition $root->{device}");
eval { fs::umount_part($root, $o->{prefix}) };
}