diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-07 13:49:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-07 13:49:12 +0000 |
| commit | f5bcee46ddf0e2b5c440e586ee9690e88316d8ef (patch) | |
| tree | 2a29aec5038989fa35e544e69e5a7aa74c07ed54 | |
| parent | 7871e54318f2583c0b2e2e64ffc76ebef3256451 (diff) | |
| download | drakx-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar drakx-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar.gz drakx-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar.bz2 drakx-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.tar.xz drakx-f5bcee46ddf0e2b5c440e586ee9690e88316d8ef.zip | |
fsedit::part2hd() returns a scalar, no need to do "my ($hd) = fsedit::part2hd(...)"
| -rw-r--r-- | perl-install/fsedit.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_interactive.pm | 2 |
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); |