diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-24 21:38:31 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-24 21:38:31 +0000 |
| commit | 2383474b8210eef1d069fcf49fe62015019e0c85 (patch) | |
| tree | d7f465327ad70b53e2ad2b05dbf2236aa7a8c3e0 /perl-install | |
| parent | 33d551048b714476402f01c0dc3f68c87eba2813 (diff) | |
| download | drakx-2383474b8210eef1d069fcf49fe62015019e0c85.tar drakx-2383474b8210eef1d069fcf49fe62015019e0c85.tar.gz drakx-2383474b8210eef1d069fcf49fe62015019e0c85.tar.bz2 drakx-2383474b8210eef1d069fcf49fe62015019e0c85.tar.xz drakx-2383474b8210eef1d069fcf49fe62015019e0c85.zip | |
no_comment
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ChangeLog | 5 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 2 | ||||
| -rw-r--r-- | perl-install/partition_table.pm | 2 |
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; } |