summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-23 21:15:31 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-23 21:15:31 +0000
commit5a632fe532f355a2583970fefb2ed8ceec6c9460 (patch)
tree53c1ddbe41a4e8dad28ca4382794803ae177fbc2 /perl-install/partition_table.pm
parentbc25ea4a6ee8505a77972e2a723607735a4e19f9 (diff)
downloaddrakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar.gz
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar.bz2
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar.xz
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.zip
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 3f46e7ea7..0ad949a53 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -156,9 +156,7 @@ sub read_one($$) {
@extended > 1 and die "more than one extended partition";
- foreach (@normal, @extended) {
- $_->{rootDevice} = $hd->{device};
- }
+ $_->{rootDevice} = $hd->{device} foreach @normal, @extended;
{ raw => $pt, extended => $extended[0], normal => \@normal };
}
@@ -236,7 +234,7 @@ sub write($) {
sub active($$) {
my ($hd, $part) = @_;
- foreach (@{$hd->{primary}->{normal}}) { $_->{active} = 0; }
+ $_->{active} = 0 foreach @{$hd->{primary}->{normal}};
$part->{active} = 0x80;
}