From 449cf265aa4393b963017938e4997ca3f94a313b 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)

---
 NEWS                 | 2 ++
 fake_packages/gen.pl | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/NEWS b/NEWS
index b6f2371..df106f0 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- reduce perl_checker SNR on perl function expecting a variable number
+  of arguments
 - update URPM fake package
 
 Version 1.2.15 - 08 March 2012, by Thierry Vignaud
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