diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-01-30 17:48:06 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-01-30 17:48:06 +0000 |
commit | 113689dacf93b234903953afb8173f56db518f4d (patch) | |
tree | 850178f0ec28bea6ef9188b8e6d1df17538506cb | |
parent | ee8784f4fee8e330f86fd75c327ba72cfe2c91da (diff) | |
download | perl_checker-113689dacf93b234903953afb8173f56db518f4d.tar perl_checker-113689dacf93b234903953afb8173f56db518f4d.tar.gz perl_checker-113689dacf93b234903953afb8173f56db518f4d.tar.bz2 perl_checker-113689dacf93b234903953afb8173f56db518f4d.tar.xz perl_checker-113689dacf93b234903953afb8173f56db518f4d.zip |
(parse_pm) prevent skiping lines when =cut is missing from end of one
file (the "..." operator isn't reset between 2 function calls...)
-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 = $_; |