diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-16 20:12:07 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-16 20:12:07 +0000 |
commit | f747f2ec8fe4d722f5ab1609a09b8c980bdd0e5c (patch) | |
tree | 3e12cdca418ebf0713cfd148dd6e2f2893c3e223 /fake_packages/gen.pl | |
parent | 0afa37a6f17f020be6fbf244495b76bd40285880 (diff) | |
download | perl_checker-f747f2ec8fe4d722f5ab1609a09b8c980bdd0e5c.tar perl_checker-f747f2ec8fe4d722f5ab1609a09b8c980bdd0e5c.tar.gz perl_checker-f747f2ec8fe4d722f5ab1609a09b8c980bdd0e5c.tar.bz2 perl_checker-f747f2ec8fe4d722f5ab1609a09b8c980bdd0e5c.tar.xz perl_checker-f747f2ec8fe4d722f5ab1609a09b8c980bdd0e5c.zip |
(get_paras) explain
Diffstat (limited to 'fake_packages/gen.pl')
-rwxr-xr-x | fake_packages/gen.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index 37b2ef8..029d130 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -24,6 +24,8 @@ sub get_paras { } else { my ($optional) = s/=(.*)//; my $s = /.*\W(\w+)/ ? $1 : $_; + # so that perl_checker doesn't complain about fake packages themselves: + # (also tag as optionnal) '$_' . ($optional ? 'o_' : '') . $s; } } grep { !/OUTLIST/ } split(',', $para) ]; |