diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-10-01 13:06:43 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-10-01 13:06:43 +0100 |
commit | 7867c8228bb087815f7050b80053680ad9ccb2e6 (patch) | |
tree | 2e42ff848a49ad8382004d7c036a15913b261c92 /cpan/Getopt-Long | |
parent | c144baaa125e0fe9cca51c4563fd00c448c9b873 (diff) | |
download | perl-7867c8228bb087815f7050b80053680ad9ccb2e6.tar.gz |
Update Getopt-Long to CPAN version 2.42
[DELTA]
Changes in version 2.42
-----------------------
* Fix bug https://rt.cpan.org/Ticket/Display.html?id=88707
Diffstat (limited to 'cpan/Getopt-Long')
-rw-r--r-- | cpan/Getopt-Long/CHANGES | 5 | ||||
-rw-r--r-- | cpan/Getopt-Long/lib/Getopt/Long.pm | 11 |
2 files changed, 10 insertions, 6 deletions
diff --git a/cpan/Getopt-Long/CHANGES b/cpan/Getopt-Long/CHANGES index 0e8860b2ad..0afd6ae7eb 100644 --- a/cpan/Getopt-Long/CHANGES +++ b/cpan/Getopt-Long/CHANGES @@ -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 ----------------------- diff --git a/cpan/Getopt-Long/lib/Getopt/Long.pm b/cpan/Getopt-Long/lib/Getopt/Long.pm index 98c215d6b6..3ef7d997b8 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: 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 ) { |