diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 14:21:42 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 14:21:42 +0000 |
| commit | 4b412fcff9e815a02c391c74523b0f350fcbeb21 (patch) | |
| tree | fed97c394a6473f8ed631b3a8ddfeb49ace5b031 /MDK | |
| parent | f2613220aeb7e50501bee9fa560d099f31ff36b1 (diff) | |
| download | perl-MDK-Common-4b412fcff9e815a02c391c74523b0f350fcbeb21.tar perl-MDK-Common-4b412fcff9e815a02c391c74523b0f350fcbeb21.tar.gz perl-MDK-Common-4b412fcff9e815a02c391c74523b0f350fcbeb21.tar.bz2 perl-MDK-Common-4b412fcff9e815a02c391c74523b0f350fcbeb21.tar.xz perl-MDK-Common-4b412fcff9e815a02c391c74523b0f350fcbeb21.zip | |
warn when there is a spaces only line
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common.pm.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index e042014..868337d 100644 --- a/MDK/Common.pm.pl +++ b/MDK/Common.pm.pl @@ -37,11 +37,14 @@ EOF foreach my $f (<MDK/Common/*.pm>) { (my $pkg = $f) =~ s|/|::|g; open F, $f or die "can't open file $f"; + my $line; while (<F>) { + $line++; if (/^=head1 (EXPORTS|OTHER)/ .. /^=back/) { s/^=head1 EXPORTS/=head1 EXPORTS from $pkg/; s/^=head1 OTHER/=head1 OTHER in $pkg/; s/^=back/=back\n/; + /^\s+\n/ and warn "$f:$line: spaces only line\n"; print; } } @@ -71,7 +74,7 @@ use vars qw(@ISA @EXPORT $VERSION); #); # perl_checker: RE-EXPORT-ALL @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::; -$VERSION = "1.1.10"; +$VERSION = "1.1.11"; 1; EOF |