[DELTA]
Changes in version 2.42
-----------------------
* Fix bug https://rt.cpan.org/Ticket/Display.html?id=88707
'Getopt::Long' => {
'MAINTAINER' => 'jv',
'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/},
'FILES' => q[cpan/Getopt-Long],
'EXCLUDED' => [
qr{^examples/},
+Changes in version 2.42
+-----------------------
+
+* Fix bug https://rt.cpan.org/Ticket/Display.html?id=88707
+
Changes in version 2.41
-----------------------
Changes in version 2.41
-----------------------
# Author : Johan Vromans
# Created On : Tue Sep 11 15:00:12 1990
# Last Modified By: Johan Vromans
# 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 ################
# Status : Released
################ Module Preamble ################
use strict;
use vars qw($VERSION);
use strict;
use vars qw($VERSION);
# For testing versions only.
use vars qw($VERSION_STRING);
# 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);
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
-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.
sub GetOptions(@) {
# Shift in default array.
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'.
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'.
my $o_valid = PAT_FLOAT;
if ( $bundling && defined $rest &&
$rest =~ /^($key_valid)($o_valid)(.*)$/s ) {
my $o_valid = PAT_FLOAT;
if ( $bundling && defined $rest &&
$rest =~ /^($key_valid)($o_valid)(.*)$/s ) {