diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/MDK/Common.pm.pl | 5 |
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/; |