From f747f2ec8fe4d722f5ab1609a09b8c980bdd0e5c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 16 Mar 2012 20:12:07 +0000 Subject: (get_paras) explain --- fake_packages/gen.pl | 2 ++ 1 file changed, 2 insertions(+) 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) ]; -- cgit v1.2.1