In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f7aae06f3c3589a1660b2f965e9841bb8ce28815?hp=d9fc04eebe29b8cf5f6f6bf31373b202eafa44d6>
- Log -----------------------------------------------------------------
commit f7aae06f3c3589a1660b2f965e9841bb8ce28815
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date: Mon Jun 22 13:28:06 2015 +0100
Update autodie to CPAN version 2.28
[DELTA]
2.28 2015-06-22 16:20:35+10:00 Australia/Melbourne
* TEST BUG: Properly skip the Import::Into test if the
version of Import::Into is insufficent. Thanks to
Olivier Mengué. (GH#67)
* DOC: Document change in 2.27 that was omitted from the
Changes-file by mistake.
M Porting/Maintainers.pl
M cpan/autodie/lib/Fatal.pm
M cpan/autodie/lib/autodie.pm
M cpan/autodie/lib/autodie/Scope/Guard.pm
M cpan/autodie/lib/autodie/Scope/GuardStack.pm
M cpan/autodie/lib/autodie/Util.pm
M cpan/autodie/lib/autodie/exception.pm
M cpan/autodie/lib/autodie/exception/system.pm
M cpan/autodie/lib/autodie/hints.pm
M cpan/autodie/lib/autodie/skip.pm
M cpan/autodie/t/import-into.t
commit 083087afa9f0243f193012e4766c2abe05218c47
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date: Mon Jun 22 13:06:17 2015 +0100
Update Getopt-Long to CPAN version 2.47
[DELTA]
Changes in version 2.47
-----------------------
* Fix bug https://rt.cpan.org/Ticket/Display.html?id=89513.
Should have done that earlier :)
This changes the format for accepted float numbers:
<optional sign>
<optional mantissa>
<optional dec.point and fraction>
<optional "e" and exponent>
Mantissa and decimal fraction may not both be omitted.
Underscores are permissible virtually anywhere in numbers for clarity.
M Porting/Maintainers.pl
M cpan/Getopt-Long/lib/Getopt/Long.pm
-----------------------------------------------------------------------
Summary of changes:
Porting/Maintainers.pl | 4 ++--
cpan/Getopt-Long/lib/Getopt/Long.pm | 20 ++++++++++----------
cpan/autodie/lib/Fatal.pm | 5 +++--
cpan/autodie/lib/autodie.pm | 2 +-
cpan/autodie/lib/autodie/Scope/Guard.pm | 2 +-
cpan/autodie/lib/autodie/Scope/GuardStack.pm | 2 +-
cpan/autodie/lib/autodie/Util.pm | 2 +-
cpan/autodie/lib/autodie/exception.pm | 2 +-
cpan/autodie/lib/autodie/exception/system.pm | 2 +-
cpan/autodie/lib/autodie/hints.pm | 2 +-
cpan/autodie/lib/autodie/skip.pm | 2 +-
cpan/autodie/t/import-into.t | 4 ++--
12 files changed, 25 insertions(+), 24 deletions(-)
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 6f16b84..4229429 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -133,7 +133,7 @@ use File::Glob qw(:case);
},
'autodie' => {
- 'DISTRIBUTION' => 'PJF/autodie-2.27.tar.gz',
+ 'DISTRIBUTION' => 'PJF/autodie-2.28.tar.gz',
'FILES' => q[cpan/autodie],
'EXCLUDED' => [
qr{benchmarks},
@@ -600,7 +600,7 @@ use File::Glob qw(:case);
},
'Getopt::Long' => {
- 'DISTRIBUTION' => 'JV/Getopt-Long-2.46.tar.gz',
+ 'DISTRIBUTION' => 'JV/Getopt-Long-2.47.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 06fa33a..cce60f5 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: Tue Jun 2 10:40:52 2015
-# Update Count : 1685
+# Last Modified On: Tue Jun 16 15:28:03 2015
+# Update Count : 1695
# Status : Released
################ Module Preamble ################
@@ -17,10 +17,10 @@ use 5.004;
use strict;
use vars qw($VERSION);
-$VERSION = 2.46;
+$VERSION = 2.47;
# For testing versions only.
use vars qw($VERSION_STRING);
-$VERSION_STRING = "2.46";
+$VERSION_STRING = "2.47";
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@@ -255,7 +255,12 @@ use constant PAT_XINT =>
"|".
"0[0-7_]*".
")";
-use constant PAT_FLOAT => "[-+]?[0-9_]+(\.[0-9_]+)?([eE][-+]?[0-9_]+)?";
+use constant PAT_FLOAT =>
+ "[-+]?". # optional sign
+ "(?=[0-9.])". # must start with digit or dec.point
+ "[0-9_]*". # digits before the dec.point
+ "(\.[0-9_]+)?". # optional fraction
+ "([eE][-+]?[0-9_]+)?"; # optional exponent
sub GetOptions(@) {
# Shift in default array.
@@ -1227,8 +1232,6 @@ sub FindOption ($$$$$) {
}
elsif ( $type eq 'f' ) { # real number, int is also ok
- # We require at least one digit before a point or 'e',
- # and at least one digit following the point and 'e'.
my $o_valid = PAT_FLOAT;
if ( $bundling && defined $rest &&
$rest =~ /^($key_valid)($o_valid)(.*)$/s ) {
@@ -1298,9 +1301,6 @@ sub ValidValue ($$$$$) {
}
elsif ( $type eq 'f' ) { # real number, int is also ok
- # We require at least one digit before a point or 'e',
- # and at least one digit following the point and 'e'.
- # [-]NN[.NN][eNN]
my $o_valid = PAT_FLOAT;
return $arg =~ /^$o_valid$/;
}
diff --git a/cpan/autodie/lib/Fatal.pm b/cpan/autodie/lib/Fatal.pm
index 21064ee..cfdb601 100644
--- a/cpan/autodie/lib/Fatal.pm
+++ b/cpan/autodie/lib/Fatal.pm
@@ -55,7 +55,7 @@ use constant ERROR_58_HINTS => q{Non-subroutine %s hints for
%s are not supporte
use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
-our $VERSION = '2.27'; # VERSION: Generated by DZP::OurPkg::Version
+our $VERSION = '2.28'; # VERSION: Generated by DZP::OurPkg::Version
our $Debug ||= 0;
@@ -108,7 +108,7 @@ my %TAGS = (
':default' => [qw(:io :threads)],
- # Everything in v2.07 and brefore. This was :default less chmod and chown
+ # Everything in v2.07 and before. This was :default less chmod and chown
':v207' => [qw(:threads :dbm :socket read seek sysread
syswrite sysseek open close flock sysopen fcntl fileno
binmode ioctl truncate opendir closedir chdir link unlink
@@ -163,6 +163,7 @@ my %TAGS = (
':2.25' => [qw(:v225)],
':2.26' => [qw(:default)],
':2.27' => [qw(:default)],
+ ':2.28' => [qw(:default)],
);
diff --git a/cpan/autodie/lib/autodie.pm b/cpan/autodie/lib/autodie.pm
index b6db3af..755d3c8 100644
--- a/cpan/autodie/lib/autodie.pm
+++ b/cpan/autodie/lib/autodie.pm
@@ -9,7 +9,7 @@ our $VERSION;
# ABSTRACT: Replace functions with ones that succeed or die with lexical scope
BEGIN {
- our $VERSION = '2.27'; # VERSION: Generated by DZP::OurPkg::Version
+ our $VERSION = '2.28'; # VERSION: Generated by DZP::OurPkg::Version
}
use constant ERROR_WRONG_FATAL => q{
diff --git a/cpan/autodie/lib/autodie/Scope/Guard.pm
b/cpan/autodie/lib/autodie/Scope/Guard.pm
index 6624c92..6d9eeed 100644
--- a/cpan/autodie/lib/autodie/Scope/Guard.pm
+++ b/cpan/autodie/lib/autodie/Scope/Guard.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
# ABSTRACT: Wrapper class for calling subs at end of scope
-our $VERSION = '2.27'; # VERSION
+our $VERSION = '2.28'; # VERSION
# This code schedules the cleanup of subroutines at the end of
# scope. It's directly inspired by chocolateboy's excellent
diff --git a/cpan/autodie/lib/autodie/Scope/GuardStack.pm
b/cpan/autodie/lib/autodie/Scope/GuardStack.pm
index d841fba..146ac6e 100644
--- a/cpan/autodie/lib/autodie/Scope/GuardStack.pm
+++ b/cpan/autodie/lib/autodie/Scope/GuardStack.pm
@@ -6,7 +6,7 @@ use warnings;
use autodie::Scope::Guard;
# ABSTRACT: Hook stack for managing scopes via %^H
-our $VERSION = '2.27'; # VERSION
+our $VERSION = '2.28'; # VERSION
my $H_KEY_STEM = __PACKAGE__ . '/guard';
my $COUNTER = 0;
diff --git a/cpan/autodie/lib/autodie/Util.pm b/cpan/autodie/lib/autodie/Util.pm
index f2a8886..79e5c2f 100644
--- a/cpan/autodie/lib/autodie/Util.pm
+++ b/cpan/autodie/lib/autodie/Util.pm
@@ -14,7 +14,7 @@ our @EXPORT_OK = qw(
on_end_of_compile_scope
);
-our $VERSION = '2.27'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.28'; # VERSION: Generated by DZP::OurPkg:Version
# ABSTRACT: Internal Utility subroutines for autodie and Fatal
diff --git a/cpan/autodie/lib/autodie/exception.pm
b/cpan/autodie/lib/autodie/exception.pm
index 93806fa..cf066ae 100644
--- a/cpan/autodie/lib/autodie/exception.pm
+++ b/cpan/autodie/lib/autodie/exception.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use Carp qw(croak);
-our $VERSION = '2.27'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.28'; # VERSION: Generated by DZP::OurPkg:Version
# ABSTRACT: Exceptions from autodying functions.
our $DEBUG = 0;
diff --git a/cpan/autodie/lib/autodie/exception/system.pm
b/cpan/autodie/lib/autodie/exception/system.pm
index 081c998..7970c61 100644
--- a/cpan/autodie/lib/autodie/exception/system.pm
+++ b/cpan/autodie/lib/autodie/exception/system.pm
@@ -5,7 +5,7 @@ use warnings;
use parent 'autodie::exception';
use Carp qw(croak);
-our $VERSION = '2.27'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.28'; # VERSION: Generated by DZP::OurPkg:Version
# ABSTRACT: Exceptions from autodying system().
diff --git a/cpan/autodie/lib/autodie/hints.pm
b/cpan/autodie/lib/autodie/hints.pm
index 9db39b1..f6eea65 100644
--- a/cpan/autodie/lib/autodie/hints.pm
+++ b/cpan/autodie/lib/autodie/hints.pm
@@ -5,7 +5,7 @@ use warnings;
use constant PERL58 => ( $] < 5.009 );
-our $VERSION = '2.27'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.28'; # VERSION: Generated by DZP::OurPkg:Version
# ABSTRACT: Provide hints about user subroutines to autodie
diff --git a/cpan/autodie/lib/autodie/skip.pm b/cpan/autodie/lib/autodie/skip.pm
index 83f4721..4ae13ec 100644
--- a/cpan/autodie/lib/autodie/skip.pm
+++ b/cpan/autodie/lib/autodie/skip.pm
@@ -2,7 +2,7 @@ package autodie::skip;
use strict;
use warnings;
-our $VERSION = '2.27'; # VERSION
+our $VERSION = '2.28'; # VERSION
# This package exists purely so people can inherit from it,
# which isn't at all how roles are supposed to work, but it's
diff --git a/cpan/autodie/t/import-into.t b/cpan/autodie/t/import-into.t
index a7289dc..28316bc 100644
--- a/cpan/autodie/t/import-into.t
+++ b/cpan/autodie/t/import-into.t
@@ -6,8 +6,8 @@ use warnings;
use Test::More;
BEGIN {
- eval 'use Import::Into';
- plan skip_all => 'Test needs Import::Into' if $@;
+ eval 'use Import::Into 1.002004';
+ plan skip_all => 'Test needs Import::Into >= 1.002004' if $@;
}
use FindBin;
--
Perl5 Master Repository
