From be575c0c81a3a2dc6b62abc220bdbc3f5aec09f9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Dec 2002 12:38:16 +0000
Subject: don't use "local *F"

---
 perl-install/fsedit.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 7a4c63d7a..4a46dd95c 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -746,9 +746,9 @@ sub rescuept($) {
     my ($ext, @hd);
 
     my $dev = devices::make($hd->{device});
-    local *F; open F, "rescuept $dev|";
+    open(my $F, "rescuept $dev|");
     local $_;
-    while (<F>) {
+    while (<$F>) {
 	my ($st, $si, $id) = /start=\s*(\d+),\s*size=\s*(\d+),\s*Id=\s*(\d+)/ or next;
 	my $part = { start => $st, size => $si, type => hex($id) };
 	if (isExtended($part)) {
@@ -757,7 +757,7 @@ sub rescuept($) {
 	    push @hd, $part;
 	}
     }
-    close F or die "rescuept failed";
+    close $F or die "rescuept failed";
 
     partition_table::raw::zero_MBR($hd);
     foreach (@hd) {
-- 
cgit v1.2.1