From 5a632fe532f355a2583970fefb2ed8ceec6c9460 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Jul 1999 21:15:31 +0000
Subject: no_comment

---
 perl-install/partition_table.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

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