diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-04-02 16:26:38 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-04-02 16:26:38 +0000 |
| commit | 85cba88ee31971440295227810c8ceca6afa9c94 (patch) | |
| tree | 566aefd33cd41ff332a079783c1254e08b50c25c | |
| parent | f84c154f87cfe9c8144b1c28a858bc22f563d263 (diff) | |
| download | perl-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
| -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/; |