summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-17 11:34:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-17 11:34:32 +0000
commit4781e491c32fdfe0dbe3cf97a8aca90040a9406b (patch)
treeca4f166763cc8be7bc01e943dcbf5a058758060d /perl-install/install_interactive.pm
parent5458ef92ec80fab427e4d69b5cdd22bb76b261d8 (diff)
downloaddrakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.gz
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.bz2
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.xz
drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.zip
new perl_checker compliance
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r--perl-install/install_interactive.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 6fc358362..355f60ba4 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -248,11 +248,11 @@ When you are done, don't forget to save using `w'", partition_table::description
}
sub partitionWizard {
- my ($o, $nodiskdrake) = @_;
+ my ($o, $b_nodiskdrake) = @_;
my %solutions = partitionWizardSolutions($o, $o->{all_hds});
- delete $solutions{diskdrake} if $nodiskdrake;
+ delete $solutions{diskdrake} if $b_nodiskdrake;
my @solutions = sort { $b->[0] <=> $a->[0] } values %solutions;
@@ -280,14 +280,14 @@ sub partitionWizard {
}
sub upNetwork {
- my ($o, $pppAvoided) = @_;
+ my ($o, $b_pppAvoided) = @_;
my $_w = $o->wait_message('', N("Bringing up the network"));
- install_steps::upNetwork($o, $pppAvoided);
+ install_steps::upNetwork($o, $b_pppAvoided);
}
sub downNetwork {
- my ($o, $pppOnly) = @_;
+ my ($o, $b_pppOnly) = @_;
my $_w = $o->wait_message('', N("Bringing down the network"));
- install_steps::downNetwork($o, $pppOnly);
+ install_steps::downNetwork($o, $b_pppOnly);
}