summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:25:50 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:25:50 +0000
commitda61f7a33aae98ed8f76103a0449f6c1f437e703 (patch)
treea8dbb35f96667e39431a39bc45864cadf3d32594 /perl-install/install
parent22b917c00b4907abd1023520a415756493c52a18 (diff)
downloaddrakx-da61f7a33aae98ed8f76103a0449f6c1f437e703.tar
drakx-da61f7a33aae98ed8f76103a0449f6c1f437e703.tar.gz
drakx-da61f7a33aae98ed8f76103a0449f6c1f437e703.tar.bz2
drakx-da61f7a33aae98ed8f76103a0449f6c1f437e703.tar.xz
drakx-da61f7a33aae98ed8f76103a0449f6c1f437e703.zip
add some spacing
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/steps_interactive.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 5f29c4eab..e340a8b7c 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -198,6 +198,7 @@ sub _check_unsafe_upgrade_and_warn {
my ($o, $part) = @_;
!_is_unsafe_upgrade($part) || _warn_unsafe_upgrade($o);
}
+
sub _is_unsafe_upgrade {
my ($part) = @_;
@@ -206,6 +207,7 @@ sub _is_unsafe_upgrade {
log::l("block_size $block_size");
$block_size == 1024;
}
+
sub _warn_unsafe_upgrade {
my ($o) = @_;
@@ -388,6 +390,7 @@ sub selectSupplMedia {
my ($o) = @_;
install::any::selectSupplMedia($o);
}
+
#------------------------------------------------------------------------------
sub choosePackages {
my ($o) = @_;
@@ -447,6 +450,7 @@ sub choosePackagesTree {
sort => 1,
});
}
+
sub loadSavePackagesOnFloppy {
my ($o, $packages) = @_;
$o->ask_from('',
@@ -472,6 +476,7 @@ The format is the same as auto_install generated files."),
install::any::g_default_packages($o);
}
}
+
sub _chooseDesktop {
my ($o, $rpmsrate_flags_chosen, $chooseGroups) = @_;
@@ -507,6 +512,7 @@ sub _chooseDesktop {
$$chooseGroups = 1;
}
}
+
sub chooseGroups {
my ($o, $packages, $compssUsers, $individual) = @_;