From 16c8b4a4d58af105239829040747f383980a3370 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(+) (limited to 'fake_packages/gen.pl') 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