summaryrefslogtreecommitdiffstats
path: root/perl_checker_fake_packages
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-13 11:03:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-13 11:03:57 +0000
commit8eb4cc08f573fbc8414ef3cd9496c845802e0901 (patch)
treefa01deeab4762723b675f95dd52035c4321981a8 /perl_checker_fake_packages
parent4f9a2816dc633372f2c64743d1763c5062fff907 (diff)
downloadperl_checker-8eb4cc08f573fbc8414ef3cd9496c845802e0901.tar
perl_checker-8eb4cc08f573fbc8414ef3cd9496c845802e0901.tar.gz
perl_checker-8eb4cc08f573fbc8414ef3cd9496c845802e0901.tar.bz2
perl_checker-8eb4cc08f573fbc8414ef3cd9496c845802e0901.tar.xz
perl_checker-8eb4cc08f573fbc8414ef3cd9496c845802e0901.zip
- simplify using operator "..."
- fix line number
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 = $_;