summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rwxr-xr-xlib/MDK/Common.pm.pl5
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/;