From 2302ff23b69433ce0ea4d34e0e1219578f991871 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 12 Jan 2004 21:12:56 +0000
Subject: ignore pod while parsing xs files

---
 perl_checker_fake_packages/gen.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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 = $_;
-- 
cgit v1.2.1