diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-16 20:12:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-16 20:12:03 +0000 |
| commit | 233e7cb1e9b215df6b3daa07222bde80ba89b7cf (patch) | |
| tree | 6eab8f1c3ffc12ea31ee74d5d3d0097233bfafcd /fake_packages | |
| parent | 659266e6644401f67973b00df5170f9d41fb6759 (diff) | |
| download | perl_checker-233e7cb1e9b215df6b3daa07222bde80ba89b7cf.tar perl_checker-233e7cb1e9b215df6b3daa07222bde80ba89b7cf.tar.gz perl_checker-233e7cb1e9b215df6b3daa07222bde80ba89b7cf.tar.bz2 perl_checker-233e7cb1e9b215df6b3daa07222bde80ba89b7cf.tar.xz perl_checker-233e7cb1e9b215df6b3daa07222bde80ba89b7cf.zip | |
(get_paras) detect when function expects any number of arguments (reduce perl_checker SNR)
Diffstat (limited to 'fake_packages')
| -rwxr-xr-x | fake_packages/gen.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index 3b49922..37b2ef8 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -16,6 +16,10 @@ sub get_paras { return if member($name, qw(print use)); $l{$current_package}{$name} = [ map { if (/\Q.../) { + # C code: + '@_more_paras'; + } elsif (/[%@]\w+.* = \@_/) { + # perl code: '@_more_paras'; } else { my ($optional) = s/=(.*)//; |