diff options
-rwxr-xr-x | fake_packages/gen.pl | 6 |
1 files changed, 4 insertions, 2 deletions
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 = $_; |