From 85cba88ee31971440295227810c8ceca6afa9c94 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 2 Apr 2012 16:26:38 +0000
Subject: perl_checker cleanups

---
 lib/MDK/Common.pm.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/MDK/Common.pm.pl b/lib/MDK/Common.pm.pl
index 0f4f985..1636b99 100755
--- a/lib/MDK/Common.pm.pl
+++ b/lib/MDK/Common.pm.pl
@@ -36,9 +36,10 @@ EOF
 foreach my $f (<lib/MDK/Common/*.pm>) {
     (my $pkg = $f) =~ s|/|::|g;
     $pkg =~ s!lib::!!;
-    open F, $f or die "can't open file $f";
+    open my $F, $f or die "can't open file $f";
     my $line;
-    while (<F>) {
+    local $_;
+    while (<$F>) {
 	$line++;
 	if (/^=head1 (EXPORTS|OTHER)/ .. /^=back/) {
 	    s/^=head1 EXPORTS/=head1 EXPORTS from $pkg/;
-- 
cgit v1.2.1