shorter and faster

1 files changed, 6 insertions, 4 deletions

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index ce5c0cdee..0c5d8fe4b 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -221,17 +221,19 @@ sub hds {
 	      foreach partition_table::get_normal_parts($hd);
 	}
 
+	my @parts = partition_table::get_normal_parts($hd);
+
 	# special case for Various type
-	$_->{pt_type} = typeOfPart($_->{device}) || 0x100 foreach grep { $_->{pt_type} == 0x100 } partition_table::get_normal_parts($hd);
+	$_->{pt_type} = typeOfPart($_->{device}) || 0x100 foreach grep { $_->{pt_type} == 0x100 } @parts;
 
 	#- special case for type overloading (eg: reiserfs is 0x183)
-	foreach (grep { isExt2($_) || $_->{pt_type} == 0x7 || $_->{pt_type} == 0x17 } partition_table::get_normal_parts($hd)) {
+	foreach (grep { isExt2($_) || $_->{pt_type} == 0x7 || $_->{pt_type} == 0x17 } @parts) {
 	    my $wanted_pt_type = $_->{pt_type} == 0x17 ? 0x7 : $_->{pt_type};
 	    my $pt_type = typeOfPart($_->{device});
 	    $_->{pt_type} = $pt_type if ($pt_type & 0xff) == $wanted_pt_type || $pt_type && $hd->isa('partition_table::gpt');
 	}
 	
-	foreach (partition_table::get_normal_parts($hd)) {
+	foreach (@parts) {
 	    my $label =
 	      member(type2fs($_), qw(ext2 ext3)) ?
 		c::get_ext2_label(devices::make($_->{device})) :
@@ -240,7 +242,7 @@ sub hds {
 	}
 
 	if ($hd->{usb_media_type}) {
-	    $_->{is_removable} = 1 foreach partition_table::get_normal_parts($hd);
+	    $_->{is_removable} = 1 foreach @parts;
 	}
 
 	push @hds, $hd;