diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-02-01 19:19:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-02-01 19:19:20 +0000 |
| commit | 6c7267ee761d7cfe9816b42cd10875b598dea0e7 (patch) | |
| tree | 9fc926b76f331f9f7b6fd3e83e931343ec8fcd4a /fake_packages | |
| parent | 3e46b02aea527bb93bb05ca346c9826683ade782 (diff) | |
| download | perl_checker-6c7267ee761d7cfe9816b42cd10875b598dea0e7.tar perl_checker-6c7267ee761d7cfe9816b42cd10875b598dea0e7.tar.gz perl_checker-6c7267ee761d7cfe9816b42cd10875b598dea0e7.tar.bz2 perl_checker-6c7267ee761d7cfe9816b42cd10875b598dea0e7.tar.xz perl_checker-6c7267ee761d7cfe9816b42cd10875b598dea0e7.zip | |
(parse_pm) ignore forward declarations
Diffstat (limited to 'fake_packages')
| -rwxr-xr-x | fake_packages/gen.pl | 2 |
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}); |