From a1a234d51ca245b130c841dcb899b0d7e2f8dfb9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 30 Jan 2012 17:48:06 +0000
Subject: (parse_pm) prevent skiping lines when =cut is missing from end of one
 file (the "..." operator isn't reset between 2 function calls...)

---
 fake_packages/gen.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'fake_packages')

diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index acedc93..aefb948 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -92,9 +92,11 @@ sub parse_pm {
     my $name;
     $current_package = '';
     my $c;
-    foreach (cat_($file)) {
+    my $magic_value = 'MAGEIA_MAGIC_STOP';
+    foreach (cat_($file), $magic_value, $magic_value) {
 	$c++;
-	next if /^=/ ... /^=cut/;
+	next if /^=/ .. /^=cut|^$magic_value/;
+	next if /^$magic_value/;
 	chomp;
 	my $orig_line = $_;
 
-- 
cgit v1.2.1