diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-06-16 23:00:36 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-06-16 23:00:36 +0100 |
| commit | 654bf52631c12acaa6cbb4aa769cd5c114c8b5bc (patch) | |
| tree | a40bd4130e219528970f480c9452def5b90e5722 /cpan/Getopt-Long | |
| parent | 368fb0189ca803eb22fe3a74ddeab3da6c0f59ef (diff) | |
| download | perl-654bf52631c12acaa6cbb4aa769cd5c114c8b5bc.tar.gz | |
Update Getopt-Long to CPAN version 2.40
[DELTA]
Changes in version 2.40
-----------------------
* Fix bug #86095 Possible problem with aliases
* Fix bug #85362 typo fix
Diffstat (limited to 'cpan/Getopt-Long')
| -rw-r--r-- | cpan/Getopt-Long/CHANGES | 7 | ||||
| -rw-r--r-- | cpan/Getopt-Long/README | 2 | ||||
| -rw-r--r-- | cpan/Getopt-Long/lib/Getopt/Long.pm | 18 |
3 files changed, 17 insertions, 10 deletions
diff --git a/cpan/Getopt-Long/CHANGES b/cpan/Getopt-Long/CHANGES index ec8a0247de..1793f9b1ee 100644 --- a/cpan/Getopt-Long/CHANGES +++ b/cpan/Getopt-Long/CHANGES @@ -1,3 +1,10 @@ +Changes in version 2.40 +----------------------- + +* Fix bug #86095 Possible problem with aliases + +* Fix bug #85362 typo fix + Changes in version 2.39 ----------------------- diff --git a/cpan/Getopt-Long/README b/cpan/Getopt-Long/README index b1b8e2a8f4..febed039b6 100644 --- a/cpan/Getopt-Long/README +++ b/cpan/Getopt-Long/README @@ -200,7 +200,7 @@ Or use the CPAN search engine: COPYRIGHT AND DISCLAIMER ======================== -Module Getopt::Long is Copyright 2009,1990 by Johan Vromans. +Module Getopt::Long is Copyright 2013,1990 by Johan Vromans. This program is free software; you can redistribute it and/or modify it under the terms of the Perl Artistic License or the GNU General Public License as published by the Free Software diff --git a/cpan/Getopt-Long/lib/Getopt/Long.pm b/cpan/Getopt-Long/lib/Getopt/Long.pm index e06f34bf62..a37262f221 100644 --- a/cpan/Getopt-Long/lib/Getopt/Long.pm +++ b/cpan/Getopt-Long/lib/Getopt/Long.pm @@ -4,8 +4,8 @@ # Author : Johan Vromans # Created On : Tue Sep 11 15:00:12 1990 # Last Modified By: Johan Vromans -# Last Modified On: Tue Mar 12 14:42:25 2013 -# Update Count : 1638 +# Last Modified On: Sun Jun 16 21:43:53 2013 +# Update Count : 1643 # Status : Released ################ Module Preamble ################ @@ -17,10 +17,10 @@ use 5.004; use strict; use vars qw($VERSION); -$VERSION = 2.39; +$VERSION = 2.40; # For testing versions only. use vars qw($VERSION_STRING); -$VERSION_STRING = "2.39"; +$VERSION_STRING = "2.40"; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK); @@ -984,9 +984,9 @@ sub FindOption ($$$$$) { # See if all matches are for the same option. my %hit; foreach ( @hits ) { - my $hit = $_; - $hit = $opctl->{$hit}->[CTL_CNAME] - if defined $opctl->{$hit}->[CTL_CNAME]; + my $hit = $opctl->{$_}->[CTL_CNAME] + if defined $opctl->{$_}->[CTL_CNAME]; + $hit = "no" . $hit if $opctl->{$_}->[CTL_TYPE] eq '!'; $hit{$hit} = 1; } # Remove auto-supplied options (version, help). @@ -2546,7 +2546,7 @@ briefly some of these 'features'. When no destination is specified for an option, GetOptions will store the resultant value in a global variable named C<opt_>I<XXX>, where -I<XXX> is the primary name of this option. When a progam executes +I<XXX> is the primary name of this option. When a program executes under C<use strict> (recommended), these variables must be pre-declared with our() or C<use vars>. @@ -2674,7 +2674,7 @@ Johan Vromans <jvromans@squirrel.nl> =head1 COPYRIGHT AND DISCLAIMER -This program is Copyright 1990,2010 by Johan Vromans. +This program is Copyright 1990,2013 by Johan Vromans. This program is free software; you can redistribute it and/or modify it under the terms of the Perl Artistic License or the GNU General Public License as published by the Free Software |