diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-11-02 13:41:43 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-11-02 13:41:43 +0000 |
commit | 50f00446bff71c7f8382758873da537eab858948 (patch) | |
tree | 01199e3e3746ca01c64e46e67a1afa0edbf99f6d /cpan | |
parent | 0ad694a7386d0cb18d3147ce6f512082a627850e (diff) | |
download | perl-50f00446bff71c7f8382758873da537eab858948.tar.gz |
Update Getopt-Long to CPAN version 2.48
[DELTA]
Changes in version 2.48
-----------------------
* Fix bug https://rt.cpan.org/Ticket/Display.html?id=39052.
Thanks to Roy Ivy III for digging this out and providing patches.
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/Getopt-Long/lib/Getopt/Long.pm | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/cpan/Getopt-Long/lib/Getopt/Long.pm b/cpan/Getopt-Long/lib/Getopt/Long.pm index cce60f5285..fdc96bd20c 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 Jun 16 15:28:03 2015 -# Update Count : 1695 +# Last Modified On: Thu Oct 8 14:57:49 2015 +# Update Count : 1697 # Status : Released ################ Module Preamble ################ @@ -17,10 +17,10 @@ use 5.004; use strict; use vars qw($VERSION); -$VERSION = 2.47; +$VERSION = 2.48; # For testing versions only. use vars qw($VERSION_STRING); -$VERSION_STRING = "2.47"; +$VERSION_STRING = "2.48"; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK); @@ -1109,9 +1109,13 @@ sub FindOption ($$$$$) { my $mand = $ctl->[CTL_AMIN]; # Check if there is an option argument available. - if ( $gnu_compat && defined $optarg && $optarg eq '' ) { - return (1, $opt, $ctl, $type eq 's' ? '' : 0) ;#unless $mand; - $optarg = 0 unless $type eq 's'; + if ( $gnu_compat ) { + my $optargtype = 0; # 0 = none, 1 = empty, 2 = nonempty + $optargtype = ( !defined($optarg) ? 0 : ( (length($optarg) == 0) ? 1 : 2 ) ); + return (1, $opt, $ctl, undef) + if (($optargtype == 0) && !$mand); + return (1, $opt, $ctl, $type eq 's' ? '' : 0) + if $optargtype == 1; # --foo= -> return nothing } # Check if there is an option argument available. @@ -1359,6 +1363,8 @@ sub Configure (@) { } elsif ( $try eq 'gnu_compat' ) { $gnu_compat = $action; + $bundling = 0; + $bundling_values = 1; } elsif ( $try =~ /^(auto_?)?version$/ ) { $auto_version = $action; |