This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Getopt-Long to CPAN version 2.42
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 1 Oct 2013 12:06:43 +0000 (13:06 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 1 Oct 2013 12:06:43 +0000 (13:06 +0100)
  [DELTA]

Changes in version 2.42
-----------------------

* Fix bug https://rt.cpan.org/Ticket/Display.html?id=88707

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

index 9dc057f..f9c5d81 100755 (executable)
@@ -887,7 +887,7 @@ use File::Glob qw(:case);
 
     'Getopt::Long' => {
         'MAINTAINER'   => 'jv',
-        'DISTRIBUTION' => 'JV/Getopt-Long-2.41.tar.gz',
+        'DISTRIBUTION' => 'JV/Getopt-Long-2.42.tar.gz',
         'FILES'        => q[cpan/Getopt-Long],
         'EXCLUDED'     => [
             qr{^examples/},
index 0e8860b..0afd6ae 100644 (file)
@@ -1,3 +1,8 @@
+Changes in version 2.42
+-----------------------
+
+* Fix bug https://rt.cpan.org/Ticket/Display.html?id=88707
+
 Changes in version 2.41
 -----------------------
 
index 98c215d..3ef7d99 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: Mon Jul  8 08:22:51 2013
-# Update Count    : 1644
+# Last Modified On: Tue Oct  1 08:25:52 2013
+# Update Count    : 1651
 # Status          : Released
 
 ################ Module Preamble ################
@@ -17,10 +17,10 @@ use 5.004;
 use strict;
 
 use vars qw($VERSION);
-$VERSION        =  2.41;
+$VERSION        =  2.42;
 # For testing versions only.
 use vars qw($VERSION_STRING);
-$VERSION_STRING = "2.41";
+$VERSION_STRING = "2.42";
 
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
@@ -251,7 +251,7 @@ use constant PAT_XINT  =>
   "|".
          "0[0-7_]*".
   ")";
-use constant PAT_FLOAT => "[-+]?[0-9._]+(\.[0-9_]+)?([eE][-+]?[0-9_]+)?";
+use constant PAT_FLOAT => "[-+]?[0-9_]+(\.[0-9_]+)?([eE][-+]?[0-9_]+)?";
 
 sub GetOptions(@) {
     # Shift in default array.
@@ -1200,7 +1200,6 @@ sub FindOption ($$$$$) {
     elsif ( $type eq 'f' ) { # real number, int is also ok
        # We require at least one digit before a point or 'e',
        # and at least one digit following the point and 'e'.
-       # [-]NN[.NN][eNN]
        my $o_valid = PAT_FLOAT;
        if ( $bundling && defined $rest &&
             $rest =~ /^($key_valid)($o_valid)(.*)$/s ) {