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 | 16c8b4a4d58af105239829040747f383980a3370 (patch) | |
| tree | 3e12cdca418ebf0713cfd148dd6e2f2893c3e223 /fake_packages | |
| parent | ccb342a04165847e3721438041521a4ce64eda30 (diff) | |
| download | perl_checker-16c8b4a4d58af105239829040747f383980a3370.tar perl_checker-16c8b4a4d58af105239829040747f383980a3370.tar.gz perl_checker-16c8b4a4d58af105239829040747f383980a3370.tar.bz2 perl_checker-16c8b4a4d58af105239829040747f383980a3370.tar.xz perl_checker-16c8b4a4d58af105239829040747f383980a3370.zip | |
(get_paras) explain
Diffstat (limited to 'fake_packages')
| -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) ]; |