diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Getopt/Long.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Getopt/Long.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/Getopt/Long.pm b/Master/tlpkg/tlperl/lib/Getopt/Long.pm index fdc96bd20cf..5e1834f3caf 100644 --- a/Master/tlpkg/tlperl/lib/Getopt/Long.pm +++ b/Master/tlpkg/tlperl/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" : (), |