2 files changed, 6 insertions, 0 deletions
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/=(.*)//;