summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-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) = @_;