From 8cb21146557a468e517db3123d481e5715971c7a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 22:52:57 +0000
Subject: - have "local *FILEHANDLE" before each "open FILEHANDLE, ..." - use
 some "cat_" and "output" where possible

---
 perl-install/partition_table.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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