diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2016-06-14 17:22:41 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2016-06-14 17:22:41 +0100 |
commit | b1d776ccb34b3542b2689c64ea05787e7a0fc931 (patch) | |
tree | ef161b70338fe0783d33f5113d56b224b281b22f /cpan/Getopt-Long | |
parent | f871eec40e9a7795680dac669164adc39cb6a2a2 (diff) | |
download | perl-b1d776ccb34b3542b2689c64ea05787e7a0fc931.tar.gz |
Update Getopt-Long to CPAN version 2.49
[DELTA]
Changes in version 2.49
-----------------------
* Fix bug https://rt.cpan.org/Ticket/Display.html?id=114999
Thanks Roy Ivy III for finding and fixing this.
* Fix bug https://rt.cpan.org/Ticket/Display.html?id=113748
Thanks Tom Wyant for finding and fixing this.
Diffstat (limited to 'cpan/Getopt-Long')
-rw-r--r-- | cpan/Getopt-Long/lib/Getopt/Long.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cpan/Getopt-Long/lib/Getopt/Long.pm b/cpan/Getopt-Long/lib/Getopt/Long.pm index fdc96bd20c..5e1834f3ca 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: Thu Oct 8 14:57:49 2015 -# Update Count : 1697 +# Last Modified On: Thu Jun 9 14:50:37 2016 +# Update Count : 1699 # Status : Released ################ Module Preamble ################ @@ -17,10 +17,10 @@ use 5.004; use strict; use vars qw($VERSION); -$VERSION = 2.48; +$VERSION = 2.49; # For testing versions only. use vars qw($VERSION_STRING); -$VERSION_STRING = "2.48"; +$VERSION_STRING = "2.49"; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK); @@ -1112,7 +1112,7 @@ sub FindOption ($$$$$) { 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) + return (1, $opt, $ctl, defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : undef) if (($optargtype == 0) && !$mand); return (1, $opt, $ctl, $type eq 's' ? '' : 0) if $optargtype == 1; # --foo= -> return nothing @@ -1451,7 +1451,7 @@ sub VersionMessage(@) { my $v = $main::VERSION; my $fh = $pa->{-output} || - ($pa->{-exitval} eq "NOEXIT" || $pa->{-exitval} < 2) ? \*STDOUT : \*STDERR; + ( ($pa->{-exitval} eq "NOEXIT" || $pa->{-exitval} < 2) ? \*STDOUT : \*STDERR ); print $fh (defined($pa->{-message}) ? $pa->{-message} : (), $0, defined $v ? " version $v" : (), |