summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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}) };
}