summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-12-09 00:06:09 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-12-09 00:06:09 +0100
commit144915f4b74abb5686e6f4d03c1c1dc170377199 (patch)
treebd37d9b080152ff4367b004e5cc278ae9f016ab5 /perl-install
parent67cfbb987c02f8725cfaf2cf4bc5f623ff10c07e (diff)
downloaddrakx-144915f4b74abb5686e6f4d03c1c1dc170377199.tar
drakx-144915f4b74abb5686e6f4d03c1c1dc170377199.tar.gz
drakx-144915f4b74abb5686e6f4d03c1c1dc170377199.tar.bz2
drakx-144915f4b74abb5686e6f4d03c1c1dc170377199.tar.xz
drakx-144915f4b74abb5686e6f4d03c1c1dc170377199.zip
perl_checker cleanup: tag an optional variable as such
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index fbe72f8bc..ddd54c9ec 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -73,13 +73,13 @@ Then choose action ``Mount point'' and set it to `/'"), 1) or return;
}
sub partitionWizardSolutions {
- my ($in, $all_hds, $all_fstab, $manual_fstab, $partitions, $partitioning_flags, $skip_mtab, $target) = @_;
+ my ($in, $all_hds, $all_fstab, $manual_fstab, $partitions, $partitioning_flags, $skip_mtab, $o_target) = @_;
my $hds = $all_hds->{hds};
my $fstab;
my $full_fstab = [ fs::get::fstab($all_hds) ];
- if ($target) {
- $hds = [ $target ];
- $fstab = [ grep { $_->{rootDevice} eq $target->{device} } fs::get::fstab($all_hds) ];
+ if ($o_target) {
+ $hds = [ $o_target ];
+ $fstab = [ grep { $_->{rootDevice} eq $o_target->{device} } fs::get::fstab($all_hds) ];
} else {
$fstab = $full_fstab;
}
@@ -244,7 +244,7 @@ filesystem checks will be run on your next boot into Microsoft Windows®")) if $
},
\&partition_table::description, \@hds_rw) or return;
} else {
- $hd = $target;
+ $hd = $o_target;
}
$in->ask_okcancel_({ messages => N("ALL existing partitions and their data will be lost on drive %s", partition_table::description($hd)),
title => N("Partitioning"),