summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-02-01 19:19:20 +0000
committerThierry Vignaud <tv@mageia.org>2012-02-01 19:19:20 +0000
commit63737a00cf3ce448be3eb5f808a9392efc33453f (patch)
tree9fc926b76f331f9f7b6fd3e83e931343ec8fcd4a
parentaaeb20298e8eaf6b05fb155e509af51c2335b712 (diff)
downloadperl_checker-63737a00cf3ce448be3eb5f808a9392efc33453f.tar
perl_checker-63737a00cf3ce448be3eb5f808a9392efc33453f.tar.gz
perl_checker-63737a00cf3ce448be3eb5f808a9392efc33453f.tar.bz2
perl_checker-63737a00cf3ce448be3eb5f808a9392efc33453f.tar.xz
perl_checker-63737a00cf3ce448be3eb5f808a9392efc33453f.zip
(parse_pm) ignore forward declarations
-rwxr-xr-xfake_packages/gen.pl2
1 files changed, 2 insertions, 0 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index aefb948..aaf4a4d 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -106,6 +106,8 @@ sub parse_pm {
$current_package = $1;
} elsif (!$current_package) {
# waiting for the package line
+ } elsif (/^sub\s*(\S*);/) {
+ # forget it
} elsif (/^sub\s*(\S*)/) {
$name = $1;
$l{$current_package}{$name} = [] if !defined($l{$current_package}{$name});