From 0e49b4b5057a47c9969610226e0d88c6e8ceea47 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 3 Dec 2002 14:12:09 +0000
Subject: do not use "local *F", use "my $F" or output() instead

---
 perl-install/partition_table.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index d491af579..ffdaf9c74 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -793,8 +793,6 @@ sub save {
     my ($hd, $file) = @_;
     my @h = @{$hd}{@fields2save};
     require Data::Dumper;
-    local *F;
-    open F, ">$file"
-      and print F Data::Dumper->Dump([\@h], ['$h']), "\0"
+    eval { output($file, Data::Dumper->Dump([\@h], ['$h']), "\0") }
       or die N("Error writing to file %s", $file);
 }
-- 
cgit v1.2.1