From 568f788ae12bcc992f65086e0952263c79479765 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 2004 01:30:33 +0000
Subject: perl_checker compliance

---
 perl-install/resize_fat/io.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/resize_fat/io.pm')

diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm
index 7ece56533..f4caee626 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -53,9 +53,8 @@ sub read_file($$) {
 sub check_mounted($) {
     my ($f) = @_;
 
-    local *F;
-    open F, "/proc/mounts" or die "error opening /proc/mounts\n";
-    foreach (<F>) {
+    open(my $F, "/proc/mounts") or die "error opening /proc/mounts\n";
+    foreach (<$F>) {
 	/^$f\s/ and die "device is mounted";
     }
 }
-- 
cgit v1.2.1