1 files changed, 3 insertions, 2 deletions
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/;