diff options
| author | Johan Vromans <jvromans@squirrel.nl> | 2022-11-18 00:02:18 +0000 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2022-11-18 00:03:22 +0000 |
| commit | 23eac292b841f2e39bb594d1e62f46a30b2aded0 (patch) | |
| tree | e95670aba0cea96e6cd5c05d85c66b9f30709ad6 | |
| parent | 2d7c62c6d4260592f3ec24a1986a87373ed6234a (diff) | |
| download | perl-23eac292b841f2e39bb594d1e62f46a30b2aded0.tar.gz | |
Getopt::Long: synch with CPAN version 2.54
From Changes:
* Fix compatibility with Perl 5.8.
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/Getopt-Long/lib/Getopt/Long.pm | 14 |
2 files changed, 10 insertions, 6 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index b476bc6c4d..da17c313d6 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -595,7 +595,7 @@ use File::Glob qw(:case); }, 'Getopt::Long' => { - 'DISTRIBUTION' => 'JV/Getopt-Long-2.53.tar.gz', + 'DISTRIBUTION' => 'JV/Getopt-Long-2.54.tar.gz', 'FILES' => q[cpan/Getopt-Long], 'EXCLUDED' => [ qr{^examples/}, diff --git a/cpan/Getopt-Long/lib/Getopt/Long.pm b/cpan/Getopt-Long/lib/Getopt/Long.pm index 0d5b25d908..fda1fc3a8f 100644 --- a/cpan/Getopt-Long/lib/Getopt/Long.pm +++ b/cpan/Getopt-Long/lib/Getopt/Long.pm @@ -4,12 +4,14 @@ # Author : Johan Vromans # Created On : Tue Sep 11 15:00:12 1990 # Last Modified By: Johan Vromans -# Last Modified On: Tue Nov 15 14:16:18 2022 -# Update Count : 1776 +# Last Modified On: Thu Nov 17 17:45:27 2022 +# Update Count : 1777 # Status : Released ################ Module Preamble ################ +# There are no CPAN testers for very old versions of Perl. +# Getopt::Long is reported to run under 5.8. use 5.004; use strict; @@ -18,10 +20,10 @@ use warnings; package Getopt::Long; use vars qw($VERSION); -$VERSION = 2.53; +$VERSION = 2.54; # For testing versions only. use vars qw($VERSION_STRING); -$VERSION_STRING = "2.53"; +$VERSION_STRING = "2.54"; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK); @@ -1544,7 +1546,9 @@ sub setup_pa_args($@) { if ( UNIVERSAL::isa($pa, 'HASH') ) { # Get rid of -msg vs. -message ambiguity. - $pa->{-message} //= delete($pa->{-msg}); + if (!defined $pa->{-message}) { + $pa->{-message} = delete($pa->{-msg}); + } } elsif ( $pa =~ /^-?\d+$/ ) { $pa = { -exitval => $pa }; |