diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-02-21 13:08:08 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-02-21 13:08:08 +0000 |
| commit | d8b081e2a621ed5fbeafc993071fad7a6cb69e88 (patch) | |
| tree | ceff56b59980bd6b60216ec4c7a7100f8cc6f7e2 | |
| parent | adc55e020e9dd90e3092c97ee7db0912097c4a7e (diff) | |
| download | perl-d8b081e2a621ed5fbeafc993071fad7a6cb69e88.tar.gz | |
Update Getopt-Long to CPAN version 2.44
[DELTA]
Changes in version 2.44
-----------------------
* Be gentle to the user community and turn fix 92462 into a warning.
This may be changed back to error in some future release.
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/Getopt-Long/lib/Getopt/Long.pm | 12 |
2 files changed, 8 insertions, 6 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 078a4d3228..4dbf13f944 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -585,7 +585,7 @@ use File::Glob qw(:case); }, 'Getopt::Long' => { - 'DISTRIBUTION' => 'JV/Getopt-Long-2.43.tar.gz', + 'DISTRIBUTION' => 'JV/Getopt-Long-2.44.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 0be46fee97..8a99db9288 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: Wed Jan 14 15:03:41 2015 -# Update Count : 1680 +# Last Modified On: Thu Feb 19 09:15:53 2015 +# Update Count : 1682 # Status : Released ################ Module Preamble ################ @@ -17,10 +17,10 @@ use 5.004; use strict; use vars qw($VERSION); -$VERSION = 2.43; +$VERSION = 2.44; # For testing versions only. use vars qw($VERSION_STRING); -$VERSION_STRING = "2.43"; +$VERSION_STRING = "2.44"; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK); @@ -374,7 +374,9 @@ sub GetOptionsFromArray(@) { } $linkage{'<>'} = shift (@optionlist); if ( $passthrough ) { - $error .= "Option spec <> cannot be used with pass_through\n"; + # Too harsh... for now. + # $error .= "Option spec <> cannot be used with pass_through\n"; + warn("Option spec <> cannot be used with pass_through. FIX IT!\n"); } next; } |