summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-24 21:38:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-24 21:38:31 +0000
commit2383474b8210eef1d069fcf49fe62015019e0c85 (patch)
treed7f465327ad70b53e2ad2b05dbf2236aa7a8c3e0 /perl-install
parent33d551048b714476402f01c0dc3f68c87eba2813 (diff)
downloaddrakx-backup-do-not-use-2383474b8210eef1d069fcf49fe62015019e0c85.tar
drakx-backup-do-not-use-2383474b8210eef1d069fcf49fe62015019e0c85.tar.gz
drakx-backup-do-not-use-2383474b8210eef1d069fcf49fe62015019e0c85.tar.bz2
drakx-backup-do-not-use-2383474b8210eef1d069fcf49fe62015019e0c85.tar.xz
drakx-backup-do-not-use-2383474b8210eef1d069fcf49fe62015019e0c85.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog5
-rw-r--r--perl-install/install_steps.pm2
-rw-r--r--perl-install/partition_table.pm2
3 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 69a25fd48..42aa57538 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-24 Pixel <pixel@mandrakesoft.com>
+
+ * modules.pm (mergein_conf): created. call read_conf, fills
+ %modules::conf and set $modules::scsi
+
2000-09-24 Guillaume Cottenceau <gc@mandrakesoft.com>
* standalone/drakgw (fatal_quit($)): add log of reason of fatal_quit
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index ab087233a..18a188a73 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -132,7 +132,7 @@ sub doPartitionDisksBefore {
eval { fs::umount("/tmp/hdimage") };
}
eval {
- close pkgs::LOG;
+ close *pkgs::LOG;
eval { fs::umount("$o->{prefix}/proc") };
eval { fs::umount_all($o->{fstab}, $o->{prefix}) };
eval { sleep 1; fs::umount_all($o->{fstab}, $o->{prefix}) } if $@; #- HACK
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index e1b5b796a..c1f90c566 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -486,7 +486,7 @@ sub active($$) {
$_->{active} = 0 foreach @{$hd->{primary}{normal}};
$part->{active} = 0x80;
- hd->{isDirty} = 1;
+ $hd->{isDirty} = 1;
}