From 233e7cb1e9b215df6b3daa07222bde80ba89b7cf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 16 Mar 2012 20:12:03 +0000
Subject: (get_paras) detect when function expects any number of arguments
 (reduce perl_checker SNR)

---
 fake_packages/gen.pl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'fake_packages')

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/=(.*)//;
-- 
cgit v1.2.1