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 ++---
 perl-install/security/msec.pm | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

(limited to 'perl-install')

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";
     }
 }
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 569e601ef..b96b0cbe2 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -163,7 +163,7 @@ sub reload {
     my $num_level = 0;
     require security::level;
     $num_level ||= security::level::get();
-    $msec->{functions}{defaults_file} = "$::prefix/usr/share/msec/level.".$num_level;
+    $msec->{functions}{defaults_file} = "$::prefix/usr/share/msec/level.$num_level";
     $msec->{functions}{default} = { $msec->load_defaults('functions') };
 }
 
-- 
cgit v1.2.1