diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 21:12:56 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 21:12:56 +0000 |
| commit | 20d868582e5608306535abab2390493190ffd140 (patch) | |
| tree | d3163640193024dc4195abb3c3360509e2d7a4cc | |
| parent | 90a1e35737c0c02455d5fa85be7bd96339c9dc88 (diff) | |
| download | perl-MDK-Common-20d868582e5608306535abab2390493190ffd140.tar perl-MDK-Common-20d868582e5608306535abab2390493190ffd140.tar.gz perl-MDK-Common-20d868582e5608306535abab2390493190ffd140.tar.bz2 perl-MDK-Common-20d868582e5608306535abab2390493190ffd140.tar.xz perl-MDK-Common-20d868582e5608306535abab2390493190ffd140.zip | |
ignore pod while parsing xs files
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index 9b2b4f7..0893fc4 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -27,8 +27,14 @@ sub parse_xs { my $state = 'waiting_for_type'; ($current_package, $current_prefix) = ('', ''); my $multi_line; - my $c; + my ($c, $ignore); foreach (cat_($file)) { + $ignore = 1 if /^=/; + if (/^=cut/) { + $ignore = 0; + next; + } + next if $ignore; $c++; chomp; my $orig_line = $_; |