summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-10-28 17:39:03 +0000
committerOlivier Blin <oblin@mandriva.com>2009-10-28 17:39:03 +0000
commitd469a4f270a8b61a92b21a4c2ff022df63c210f4 (patch)
treeea177a5b7560ab8dbb2614a893ac2fde04044d98 /perl-install
parent710a697fb13cec697981432030417937a08dcae3 (diff)
downloaddrakx-d469a4f270a8b61a92b21a4c2ff022df63c210f4.tar
drakx-d469a4f270a8b61a92b21a4c2ff022df63c210f4.tar.gz
drakx-d469a4f270a8b61a92b21a4c2ff022df63c210f4.tar.bz2
drakx-d469a4f270a8b61a92b21a4c2ff022df63c210f4.tar.xz
drakx-d469a4f270a8b61a92b21a4c2ff022df63c210f4.zip
whitespace clean
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm64
1 files changed, 32 insertions, 32 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 1b641882d..e02dfe3d6 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -31,7 +31,7 @@ sub to_Mb {
sub partition_with_diskdrake {
my ($in, $all_hds, $fstab, $manual_fstab, $partitions, $partitioning_flags, $skip_mtab) = @_;
- my $ok;
+ my $ok;
do {
$ok = 1;
@@ -47,7 +47,7 @@ sub partition_with_diskdrake {
diskdrake::interactive::main($in, $all_hds, $do_force_reload);
}
my @fstab = fs::get::fstab($all_hds);
-
+
unless (fs::get::root_(\@fstab)) {
$ok = 0;
$in->ask_okcancel(N("Partitioning"), N("You must have a root partition.
@@ -136,7 +136,7 @@ sub partitionWizardSolutions {
#- make sure that even after normalizing the size to cylinder boundaries, the minimun will be saved,
#- this save at least a cylinder (less than 8Mb).
$min_win += partition_table::raw::cylinder_size($hd);
-
+
if ($part->{size} <= $min_linux_all + $min_win) {
# die N("Your Microsoft Windows® partition is too fragmented. Please reboot your computer under Microsoft Windows®, run the ``defrag'' utility, then restart the Mandriva Linux installation.");
undef $part;
@@ -160,7 +160,7 @@ sub partitionWizardSolutions {
$part || ();
} @ok_for_resize_fat;
if (@ok_for_resize_fat) {
- $solutions{resize_fat} =
+ $solutions{resize_fat} =
[ 20 - @ok_for_resize_fat, N("Use the free space on a Microsoft Windows® partition"),
sub {
my $part;
@@ -197,10 +197,10 @@ When sure, press %s.", N("Next")))) or return;
$part->{req_size} = from_Mb($mb_size, $part->{min_win}, $part->{max_win});
}
$part->{size} = $part->{req_size};
-
+
$hd->adjustEnd($part);
-
- eval {
+
+ eval {
my $_w = $in->wait_message(N("Resizing"), N("Resizing Microsoft Windows® partition"));
$resize_fat->resize($part->{size});
};
@@ -208,15 +208,15 @@ When sure, press %s.", N("Next")))) or return;
$part->{size} = $oldsize;
die N("FAT resizing failed: %s", formatError($err));
}
-
- $in->ask_warn('', N("To ensure data integrity after resizing the partition(s),
+
+ $in->ask_warn('', N("To ensure data integrity after resizing the partition(s),
filesystem checks will be run on your next boot into Microsoft Windows®")) if $part->{fs_type} ne 'vfat';
-
+
set_isFormatted($part, 1);
partition_table::will_tell_kernel($hd, resize => $part); #- down-sizing, write_partitions is not needed
partition_table::adjust_local_extended($hd, $part);
partition_table::adjust_main_extended($hd);
-
+
fsedit::auto_allocate($all_hds, $partitions);
1;
}, \@ok_for_resize_fat ];
@@ -227,7 +227,7 @@ filesystem checks will be run on your next boot into Microsoft Windows®")) if $
if (@$fstab && @hds_rw) {
$solutions{wipe_drive} =
- [ 10, fsedit::is_one_big_fat_or_NT($hds) ? N("Remove Microsoft Windows®") : N("Erase and use entire disk"),
+ [ 10, fsedit::is_one_big_fat_or_NT($hds) ? N("Remove Microsoft Windows®") : N("Erase and use entire disk"),
sub {
my $hd;
if (!$in->isa('interactive::gtk')) {
@@ -255,7 +255,7 @@ filesystem checks will be run on your next boot into Microsoft Windows®")) if $
}
$solutions{fdisk} =
- [ -10, N("Use fdisk"), sub {
+ [ -10, N("Use fdisk"), sub {
$in->enter_console;
foreach (@$hds) {
print "\n" x 10, N("You can now partition %s.
@@ -266,7 +266,7 @@ When you are done, do not forget to save using `w'", partition_table::descriptio
$pid = fork() or exec "pdisk", devices::make($_->{device});
} else {
$pid = fork() or exec "fdisk", devices::make($_->{device});
- }
+ }
waitpid($pid, 0);
}
$in->leave_console;
@@ -323,7 +323,7 @@ sub create_display_box {
$mdv_widget->add($b2);
$b2->set_size_request($ratio * MB(600), 0);
$mdv_widget->set_name("PART_new");
-
+
my $hpane = Gtk2::HPaned->new;
$hpane->add1($part_widget);
$hpane->child1_shrink(0);
@@ -384,7 +384,7 @@ sub create_display_box {
$part_info = gtknew("Image", file => "small-logo");
$part_widget->set_name("PART_new");
} else {
- $part_widget->set_name("PART_" . (isEmpty($entry) ? 'empty' :
+ $part_widget->set_name("PART_" . (isEmpty($entry) ? 'empty' :
$entry->{fs_type} && member($entry->{fs_type}, @colorized_fs_types) ? $entry->{fs_type} :
'other'));
}
@@ -423,24 +423,24 @@ sub display_choices {
my ($o, $contentbox, $mainw, %solutions) = @_;
my @solutions = sort { $solutions{$b}[0] <=> $solutions{$a}[0] } keys %solutions;
my @sol = grep { $solutions{$_}[0] >= 0 } @solutions;
-
- log::l('' . "solutions found: " . join('', map { $solutions{$_}[1] } @sol) .
+
+ log::l('' . "solutions found: " . join('', map { $solutions{$_}[1] } @sol) .
" (all solutions found: " . join('', map { $solutions{$_}[1] } @solutions) . ")");
-
+
@solutions = @sol if @sol > 1;
log::l("solutions: ", int @solutions);
@solutions or $o->ask_warn(N("Partitioning"), N("I can not find any room for installing")), die 'already displayed';
-
+
log::l('HERE: ', join(',', map { $solutions{$_}[1] } @solutions));
-
+
$contentbox->foreach(sub { $contentbox->remove($_[0]) });
-
+
$mainw->{kind}{display_box} ||= create_display_box($mainw->{kind});
ugtk2::gtkpack2__($contentbox, $mainw->{kind}{display_box});
ugtk2::gtkpack__($contentbox, gtknew('Label',
text => N("The DrakX Partitioning wizard found the following solutions:"),
alignment => [0, 0]));
-
+
my $choicesbox = gtknew('VBox');
my $oldbutton;
my $sep;
@@ -495,9 +495,9 @@ sub main {
my $mainw = ugtk2->new(N("Partitioning"), %$o, if__($::main_window, transient => $::main_window));
$mainw->{box_allow_grow} = 1;
-
+
mygtk2::set_main_window_size($mainw->{rwindow});
-
+
require diskdrake::hd_gtk;
diskdrake::hd_gtk::load_theme();
@@ -506,7 +506,7 @@ sub main {
my @kinds = map { diskdrake::hd_gtk::hd2kind($_) } @{$all_hds->{hds}};
my $hdchoice = Gtk2::HBox->new;
-
+
my $hdchoicelabel = Gtk2::Label->new(N("Here is the content of your disk drive "));
my $combobox = Gtk2::ComboBox->new_text;
@@ -516,12 +516,12 @@ sub main {
$combobox->append_text($info);
}
$combobox->set_active(0);
-
+
ugtk2::gtkpack2__($hdchoice, $hdchoicelabel);
$hdchoice->add($combobox);
-
+
ugtk2::gtkpack2__($mainbox, $hdchoice);
-
+
my $contentbox = Gtk2::VBox->new(0, 12);
$mainbox->add($contentbox);
@@ -530,7 +530,7 @@ sub main {
delete $solutions{diskdrake} if $b_nodiskdrake;
$mainw->{kind} = $kind;
display_choices($o, $contentbox, $mainw, %solutions);
-
+
$combobox->signal_connect("changed", sub {
$mainw->{kind} = @kinds[$combobox->get_active];
my %solutions = partitionWizardSolutions($o, $all_hds, $fstab, $manual_fstab, $partitions, $partitioning_flags, $skip_mtab, diskdrake::hd_gtk::kind2hd($mainw->{kind}));
@@ -549,7 +549,7 @@ sub main {
$mainbox->pack_end($buttons_pack, 0, 0, 0);
ugtk2::gtkadd($mainw->{window}, $mainbox);
$mainw->{window}->show_all;
-
+
$mainw->main;
$sol=$mainw->{sol};
@@ -557,7 +557,7 @@ sub main {
my %solutions = partitionWizardSolutions($o, $all_hds, $fstab, $manual_fstab, $partitions, $partitioning_flags, $skip_mtab);
delete $solutions{diskdrake} if $b_nodiskdrake;
-
+
my @solutions = sort { $b->[0] <=> $a->[0] } values %solutions;
my @sol = grep { $_->[0] >= 0 } @solutions;