summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-07 13:49:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-07 13:49:12 +0000
commitf5bcee46ddf0e2b5c440e586ee9690e88316d8ef (patch)
tree2a29aec5038989fa35e544e69e5a7aa74c07ed54 /perl-install
parent7871e54318f2583c0b2e2e64ffc76ebef3256451 (diff)
downloaddrakx-backup-do-not-use-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar
drakx-backup-do-not-use-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar.gz
drakx-backup-do-not-use-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar.bz2
drakx-backup-do-not-use-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar.xz
drakx-backup-do-not-use-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.zip
fsedit::part2hd() returns a scalar, no need to do "my ($hd) = fsedit::part2hd(...)"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm2
-rw-r--r--perl-install/install_interactive.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 1ece4a756..05eec0a60 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -560,7 +560,7 @@ sub allocatePartitions {
my $part;
while (suggest_part($part = { start => $start, size => 0, maxsize => $size, rootDevice => $dev },
$all_hds, $to_add)) {
- my ($hd) = fsedit::part2hd($part, $all_hds);
+ my $hd = fsedit::part2hd($part, $all_hds);
add($hd, $part, $all_hds);
$size -= $part->{size} + $part->{start} - $start;
$start = $part->{start} + $part->{size};
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 0598340c4..0532e53e6 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -165,7 +165,7 @@ When sure, press Ok.")) or return;
$part->{size} = $size;
$part->{isFormatted} = 1;
- my ($hd) = fsedit::part2hd($part, $all_hds);
+ my $hd = fsedit::part2hd($part, $all_hds);
$hd->{isDirty} = $hd->{needKernelReread} = 1;
$hd->adjustEnd($part);
partition_table::adjust_local_extended($hd, $part);