diff options
-rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
-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 |
4 files changed, 18 insertions, 11 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index c892d86eb2..f3209ea393 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -897,7 +897,7 @@ use File::Glob qw(:case); 'Getopt::Long' => { 'MAINTAINER' => 'jv', - 'DISTRIBUTION' => 'JV/Getopt-Long-2.39.tar.gz', + 'DISTRIBUTION' => 'JV/Getopt-Long-2.40.tar.gz', 'FILES' => q[cpan/Getopt-Long], 'EXCLUDED' => [ qr{^examples/}, 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 |