diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-10-09 01:47:01 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-09 01:47:01 +0000 |
| commit | 9a24ba61e226d77ee8120b2e7803c4f080489abd (patch) | |
| tree | fc342c1de7fef5b9cc5f180dfdf2720891b151db | |
| parent | 016609bcafdaad73410c6984a3d020d5529e5770 (diff) | |
| download | perl-9a24ba61e226d77ee8120b2e7803c4f080489abd.tar.gz | |
Updated to version 2.4 to match Getopt::Long.
| -rw-r--r-- | lib/newgetopt.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl index d284b5b192..0b7eed8bfe 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.16 1996/03/16 11:46:08 jv Exp $ +# $Id: newgetopt.pl,v 1.17 1996-10-02 11:17:16+02 jv Exp $ { package newgetopt; @@ -16,6 +16,7 @@ $option_start = "(--|-)"; $order = $REQUIRE_ORDER; $bundling = 0; + $passthrough = 0; } else { $autoabbrev = 1; # automatic abbrev of options @@ -23,6 +24,7 @@ $option_start = "(--|-|\\+)"; $order = $PERMUTE; $bundling = 0; + $passthrough = 0; } # Other configurable settings. @@ -51,6 +53,10 @@ sub NGetOpt { if defined $newgetopt::bundling; $Getopt::Long::ignorecase = $newgetopt::ignorecase if defined $newgetopt::ignorecase; + $Getopt::Long::ignorecase = $newgetopt::ignorecase + if defined $newgetopt::ignorecase; + $Getopt::Long::passthrough = $newgetopt::passthrough + if defined $newgetopt::passthrough; &GetOptions; } |