summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-04-02 16:26:38 +0000
committerThierry Vignaud <tv@mageia.org>2012-04-02 16:26:38 +0000
commit85cba88ee31971440295227810c8ceca6afa9c94 (patch)
tree566aefd33cd41ff332a079783c1254e08b50c25c /lib
parentf84c154f87cfe9c8144b1c28a858bc22f563d263 (diff)
downloadperl-MDK-Common-85cba88ee31971440295227810c8ceca6afa9c94.tar
perl-MDK-Common-85cba88ee31971440295227810c8ceca6afa9c94.tar.gz
perl-MDK-Common-85cba88ee31971440295227810c8ceca6afa9c94.tar.bz2
perl-MDK-Common-85cba88ee31971440295227810c8ceca6afa9c94.tar.xz
perl-MDK-Common-85cba88ee31971440295227810c8ceca6afa9c94.zip
perl_checker cleanups
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/;