diff options
| author | Johan Vromans <jvromans@squirrel.nl> | 1997-01-11 06:22:36 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 07:24:00 +1200 |
| commit | 16c18a900643a9692cf6c1aee568a156ccb6569b (patch) | |
| tree | 36b864c76c99b54ed844b7f85f9a9ad655e29902 /lib/Getopt | |
| parent | a375a877d6d52b8fe1c40e6f3e1bdeb7b23aaa67 (diff) | |
| download | perl-16c18a900643a9692cf6c1aee568a156ccb6569b.tar.gz | |
Refresh Getopt::Long to 2.6
Diffstat (limited to 'lib/Getopt')
| -rw-r--r-- | lib/Getopt/Long.pm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm index 4047bf1f59..f2b37e917f 100644 --- a/lib/Getopt/Long.pm +++ b/lib/Getopt/Long.pm @@ -1,11 +1,11 @@ # GetOpt::Long.pm -- POSIX compatible options parsing -# RCS Status : $Id: GetoptLong.pm,v 2.5 1996-10-19 16:47:51+02 jv Exp $ +# RCS Status : $Id: GetoptLong.pm,v 2.6 1997-01-11 13:12:01+01 jv Exp $ # Author : Johan Vromans # Created On : Tue Sep 11 15:00:12 1990 # Last Modified By: Johan Vromans -# Last Modified On: Sat Oct 19 16:46:23 1996 -# Update Count : 504 +# Last Modified On: Sat Jan 11 13:11:35 1997 +# Update Count : 506 # Status : Released package Getopt::Long; @@ -14,7 +14,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER); -$VERSION = sprintf("%d.%02d", '$Revision: 2.5 $ ' =~ /(\d+)\.(\d+)/); +$VERSION = sprintf("%d.%02d", '$Revision: 2.6 $ ' =~ /(\d+)\.(\d+)/); use vars qw($autoabbrev $getopt_compat $ignorecase $bundling $order $passthrough $error $debug $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER @@ -80,7 +80,7 @@ linkage specified in the HASH. The command line options are taken from array @ARGV. Upon completion of GetOptions, @ARGV will contain the rest (i.e. the non-options) of the command line. - + Each option specifier designates the name of the option, optionally followed by an argument specifier. Values for argument specifiers are: @@ -530,7 +530,7 @@ sub GetOptions { # than once in differing environments $error = 0; - print STDERR ('GetOptions $Revision: 2.5 $ ', + print STDERR ('GetOptions $Revision: 2.6 $ ', "[GetOpt::Long $Getopt::Long::VERSION] -- ", "called from package \"$pkg\".\n", " (@ARGV)\n", @@ -927,6 +927,11 @@ sub find_option { } } + # Map to all lowercase if ignoring case. + elsif ( $ignorecase ) { + $tryopt = lc ($opt); + } + # Check validity by fetching the info. my $type = $optbl->{$tryopt}; unless ( defined $type ) { |