In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d8b081e2a621ed5fbeafc993071fad7a6cb69e88?hp=adc55e020e9dd90e3092c97ee7db0912097c4a7e>
- Log ----------------------------------------------------------------- commit d8b081e2a621ed5fbeafc993071fad7a6cb69e88 Author: Chris 'BinGOs' Williams <[email protected]> Date: Sat Feb 21 13:08:08 2015 +0000 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. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- 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 078a4d3..4dbf13f 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 0be46fe..8a99db9 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; } -- Perl5 Master Repository
