Update Getopt-Long to CPAN version 2.49
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 14 Jun 2016 16:22:41 +0000 (17:22 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 14 Jun 2016 16:22:41 +0000 (17:22 +0100)
[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.

Porting/Maintainers.pl
cpan/Getopt-Long/lib/Getopt/Long.pm

index ce2e053..ba0c467 100755 (executable)
@@ -564,7 +564,7 @@ use File::Glob qw(:case);
     },
 
     'Getopt::Long' => {
-        'DISTRIBUTION' => 'JV/Getopt-Long-2.48.tar.gz',
+        'DISTRIBUTION' => 'JV/Getopt-Long-2.49.tar.gz',
         'FILES'        => q[cpan/Getopt-Long],
         'EXCLUDED'     => [
             qr{^examples/},
index fdc96bd..5e1834f 100644 (file)
@@ -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" : (),