From f5bcee46ddf0e2b5c440e586ee9690e88316d8ef Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Jan 2003 13:49:12 +0000
Subject: fsedit::part2hd() returns a scalar, no need to do "my ($hd) =
 fsedit::part2hd(...)"

---
 perl-install/fsedit.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/fsedit.pm')

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};
-- 
cgit v1.2.1