diff options
Diffstat (limited to 'fake_packages/Getopt')
-rw-r--r-- | fake_packages/Getopt/Long.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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) = @_ } |