Update Getopt-Long to CPAN version 2.40
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 16 Jun 2013 22:00:36 +0000 (23:00 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 16 Jun 2013 22:00:36 +0000 (23:00 +0100)
  [DELTA]

  Changes in version 2.40
  -----------------------

  * Fix bug #86095 Possible problem with aliases

  * Fix bug #85362 typo fix

Porting/Maintainers.pl
cpan/Getopt-Long/CHANGES
cpan/Getopt-Long/README
cpan/Getopt-Long/lib/Getopt/Long.pm

index c892d86..f3209ea 100755 (executable)
@@ -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/},
index ec8a024..1793f9b 100644 (file)
@@ -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
 -----------------------
 
index b1b8e2a..febed03 100644 (file)
@@ -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
index e06f34b..a37262f 100644 (file)
@@ -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