summaryrefslogtreecommitdiffstats
path: root/perl_checker_fake_packages
diff options
context:
space:
mode:
Diffstat (limited to 'perl_checker_fake_packages')
-rwxr-xr-xperl_checker_fake_packages/gen.pl9
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 = $_;