From ea1c93402dfa2aba19ab3dbc3551cd21572affb9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 14 Dec 1999 16:42:45 +0000 Subject: no_comment --- perl-install/install_steps_gtk.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 460835d18..38ef48745 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -254,12 +254,15 @@ sub doPartitionDisks($$) { my $w = $o->wait_message(_("Resizing"), _("Computing fat filesystem bounds")); my $resize_fat = eval { resize_fat::main->new($part->{device}, devices::make($part->{device})) }; my $min_win = $resize_fat->min_size; - if (!$@ && $part->{size} > $min_linux + $min_freewin + $min_win && $o->ask_okcancel('', + if (!$@ && $part->{size} > $min_linux + $min_freewin + $min_win && $o->ask_okcancel('', _("TODO"))) { + my $hd = $hds->[0]; my $oldsize = $part->{size}; - $hds->[0]{isDirty} = $hds->[0]{needKernelReread} = 1; + $hd->{isDirty} = $hd->{needKernelReread} = 1; $part->{size} -= $min_linux; - partition_table::adjustEnd($hds->[0], $part); + partition_table::adjustEnd($hd, $part); + partition_table::adjust_local_extended($hd, $part); + partition_table::adjust_main_extended($hd); local *log::l = sub { $w->set(join(' ', @_)) }; eval { $resize_fat->resize($part->{size}) }; @@ -270,7 +273,7 @@ _("TODO"))) { $part->{isFormatted} = 1; eval { fsedit::auto_allocate($hds, $o->{partitions}) }; if (!$@) { - partition_table::write($hds->[0]) unless $::testing; + partition_table::write($hd) unless $::testing; return; } } @@ -765,7 +768,7 @@ sub createXconf($$$) { open F, ">$file" or die "can't create X configuration file $file"; print F <