diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:50 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:50 +0000 |
commit | 849cad764389205d212e7d97086245434fb43ae0 (patch) | |
tree | a8dbb35f96667e39431a39bc45864cadf3d32594 | |
parent | 417daba4c63d5ede2bc3fa75438e62fe46d6e071 (diff) | |
download | drakx-backup-do-not-use-849cad764389205d212e7d97086245434fb43ae0.tar drakx-backup-do-not-use-849cad764389205d212e7d97086245434fb43ae0.tar.gz drakx-backup-do-not-use-849cad764389205d212e7d97086245434fb43ae0.tar.bz2 drakx-backup-do-not-use-849cad764389205d212e7d97086245434fb43ae0.tar.xz drakx-backup-do-not-use-849cad764389205d212e7d97086245434fb43ae0.zip |
add some spacing
-rw-r--r-- | perl-install/install/steps_interactive.pm | 6 |
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) = @_; |