diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 11:03:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 11:03:57 +0000 |
| commit | a6e2b7879fb41ce2f38d7930a82ec8917fda5009 (patch) | |
| tree | ab1b15923792043edd7a8f4832900dbcc6032a09 /perl_checker_fake_packages | |
| parent | 652bff0c245e96f4a012c3e4b25ef09ff2539a58 (diff) | |
| download | perl-MDK-Common-a6e2b7879fb41ce2f38d7930a82ec8917fda5009.tar perl-MDK-Common-a6e2b7879fb41ce2f38d7930a82ec8917fda5009.tar.gz perl-MDK-Common-a6e2b7879fb41ce2f38d7930a82ec8917fda5009.tar.bz2 perl-MDK-Common-a6e2b7879fb41ce2f38d7930a82ec8917fda5009.tar.xz perl-MDK-Common-a6e2b7879fb41ce2f38d7930a82ec8917fda5009.zip | |
- simplify using operator "..."
- fix line number
Diffstat (limited to 'perl_checker_fake_packages')
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index 0893fc4..ccad0c0 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -27,15 +27,10 @@ sub parse_xs { my $state = 'waiting_for_type'; ($current_package, $current_prefix) = ('', ''); my $multi_line; - my ($c, $ignore); + my $c; foreach (cat_($file)) { - $ignore = 1 if /^=/; - if (/^=cut/) { - $ignore = 0; - next; - } - next if $ignore; $c++; + next if /^=/ ... /^=cut/; chomp; my $orig_line = $_; |