diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-05-09 04:30:28 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-05-09 04:30:28 +0000 |
| commit | 01d0d956947d0fae590145ef30d50b879af36b0e (patch) | |
| tree | 22c54d94a730d0500eb754f0e36aec9d6190e4c9 /lib/newgetopt.pl | |
| parent | af3dad466fe82f837db174449dfa212f6b1726a8 (diff) | |
| download | perl-01d0d956947d0fae590145ef30d50b879af36b0e.tar.gz | |
Update to version 1.16
Diffstat (limited to 'lib/newgetopt.pl')
| -rw-r--r-- | lib/newgetopt.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl index 38cad59c73..d284b5b192 100644 --- a/lib/newgetopt.pl +++ b/lib/newgetopt.pl @@ -1,6 +1,6 @@ # newgetopt.pl -- new options parsing. # Now just a wrapper around the Getopt::Long module. -# $Id: newgetopt.pl,v 1.15 1995/12/26 14:57:33 jv Exp $ +# $Id: newgetopt.pl,v 1.16 1996/03/16 11:46:08 jv Exp $ { package newgetopt; @@ -15,12 +15,14 @@ $getopt_compat = 0; # disallow '+' to start options $option_start = "(--|-)"; $order = $REQUIRE_ORDER; + $bundling = 0; } else { $autoabbrev = 1; # automatic abbrev of options $getopt_compat = 1; # allow '+' to start options $option_start = "(--|-|\\+)"; $order = $PERMUTE; + $bundling = 0; } # Other configurable settings. @@ -45,6 +47,8 @@ sub NGetOpt { if defined $newgetopt::option_start; $Getopt::Long::order = $newgetopt::order if defined $newgetopt::order; + $Getopt::Long::bundling = $newgetopt::bundling + if defined $newgetopt::bundling; $Getopt::Long::ignorecase = $newgetopt::ignorecase if defined $newgetopt::ignorecase; |