From 8eb4cc08f573fbc8414ef3cd9496c845802e0901 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 13 Jan 2004 11:03:57 +0000
Subject: - simplify using operator "..." - fix line number

---
 perl_checker_fake_packages/gen.pl | 9 ++-------
 1 file 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 = $_;
 
-- 
cgit v1.2.1