From 2383474b8210eef1d069fcf49fe62015019e0c85 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 24 Sep 2000 21:38:31 +0000 Subject: no_comment --- perl-install/ChangeLog | 5 +++++ perl-install/install_steps.pm | 2 +- perl-install/partition_table.pm | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) (limited to 'perl-install') 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 + + * modules.pm (mergein_conf): created. call read_conf, fills + %modules::conf and set $modules::scsi + 2000-09-24 Guillaume Cottenceau * 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; } -- cgit v1.2.1