From ccb342a04165847e3721438041521a4ce64eda30 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 16 Mar 2012 20:12:05 +0000
Subject: update fake packages with function expecting any number of arguments
 (reduce perl_checker SNR)

---
 fake_packages/Getopt/Long.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'fake_packages/Getopt')

diff --git a/fake_packages/Getopt/Long.pm b/fake_packages/Getopt/Long.pm
index dad875e..a8a14ac 100644
--- a/fake_packages/Getopt/Long.pm
+++ b/fake_packages/Getopt/Long.pm
@@ -2,10 +2,10 @@
 package Getopt::Long;
 our @ISA = qw();
 sub ConfigDefaults() {}
-sub Configure { my ($_o_options) = @_ }
+sub Configure { my (@_more_paras) = @_ }
 sub FindOption { my ($_argv, $_prefix, $_argend, $_opt, $_o_opctl) = @_ }
 sub GetOptions(@) {}
-sub GetOptionsFromArray(@) { my ($_argv, $_o_optionlist) = @_ }
+sub GetOptionsFromArray(@) { my ($_argv, @_more_paras) = @_ }
 sub GetOptionsFromString(@) {}
 sub HelpMessage(@) {}
 sub OptCtl { my ($_o_v) = @_ }
@@ -20,10 +20,10 @@ sub setup_pa_args($@) {}
 package Getopt::Long::CallBack;
 our @ISA = qw();
 sub name() {}
-sub new { my ($_pkg, $_o_atts) = @_ }
+sub new { my ($_pkg, @_more_paras) = @_ }
 
 package Getopt::Long::Parser;
 our @ISA = qw();
 sub configure() {}
 sub getoptions() {}
-sub new { my ($_o_atts) = @_ }
+sub new { my (@_more_paras) = @_ }
-- 
cgit v1.2.1