From a1a234d51ca245b130c841dcb899b0d7e2f8dfb9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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