r53480 - in /branches/upstream/libautodie-perl/current: AUTHORS Changes META.yml lib/Fatal.pm lib/autodie.pm lib/autodie/exception.pm lib/autodie/exception/system.pm lib/autodie/hints.pm t/internal-backcompat.t t/open.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon Mar 1 21:57:35 UTC 2010
Author: gregoa
Date: Mon Mar 1 21:57:23 2010
New Revision: 53480
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53480
Log:
[svn-upgrade] Integrating new upstream version, libautodie-perl (2.10)
Modified:
branches/upstream/libautodie-perl/current/AUTHORS
branches/upstream/libautodie-perl/current/Changes
branches/upstream/libautodie-perl/current/META.yml
branches/upstream/libautodie-perl/current/lib/Fatal.pm
branches/upstream/libautodie-perl/current/lib/autodie.pm
branches/upstream/libautodie-perl/current/lib/autodie/exception.pm
branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm
branches/upstream/libautodie-perl/current/lib/autodie/hints.pm
branches/upstream/libautodie-perl/current/t/internal-backcompat.t
branches/upstream/libautodie-perl/current/t/open.t
Modified: branches/upstream/libautodie-perl/current/AUTHORS
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/AUTHORS?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/AUTHORS (original)
+++ branches/upstream/libautodie-perl/current/AUTHORS Mon Mar 1 21:57:23 2010
@@ -49,7 +49,7 @@
of how it's been dressed.
Matt Kraai
- - Formatting fixess in diagnostics.
+ - Formatting fixes in diagnostics.
Darren Duncan
- Spotting omissions in user documentation.
@@ -90,3 +90,28 @@
Elliot Shank
- Integration into Perl::Critic
+
+Michael Schwern
+ - Finding a more-than-a-decade old bug in Fatal that caused
+ it to leak carp functions.
+ - Improvements to generated error messages.
+
+David Taylor
+ - Documentation fixes.
+
+Nick Cleaton
+ - Support for multi-arg open.
+
+Craig A. Berry
+ - VMS support.
+
+Jonathan Yu
+ - chmod support.
+ - Prevention of author tests failing if Sub::Identify not installed.
+
+Jerry D. Hedden
+ - Better test output, particularly when running as part of the
+ Perl core.
+
+Curtis Jewell
+ - Improvements to File::Copy tests under Windows.
Modified: branches/upstream/libautodie-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/Changes?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/Changes (original)
+++ branches/upstream/libautodie-perl/current/Changes Mon Mar 1 21:57:23 2010
@@ -1,6 +1,16 @@
Revision history for autodie
-2.09 Tue Feb 23 00:33:09 EST 2010
+2.10 Sat Feb 27 14:01:18 AUSEST 2010
+ * BUGFIX: Fatal and autodie no longer leak Carp functions
+ into the caller's namespace. Thanks to Schwern.
+
+ * TEST: Multi-arg open tests are really really skipped
+ under Windows now.
+
+ * DOCUMENTATION: Many more people are properly attributed
+ in the 'AUTHORS' file.
+
+2.09 Tue Feb 23 00:33:09 AUSEST 2010
* DOCS: Fixed documentation typo. RT #48575
Thanks to David Taylor.
Modified: branches/upstream/libautodie-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/META.yml?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/META.yml (original)
+++ branches/upstream/libautodie-perl/current/META.yml Mon Mar 1 21:57:23 2010
@@ -27,4 +27,4 @@
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie
license: http://dev.perl.org/licenses/
repository: http://github.com/pfenwick/autodie/tree/master
-version: 2.09
+version: 2.10
Modified: branches/upstream/libautodie-perl/current/lib/Fatal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/Fatal.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/Fatal.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/Fatal.pm Mon Mar 1 21:57:23 2010
@@ -40,7 +40,7 @@
use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
# All the Fatal/autodie modules share the same version number.
-our $VERSION = '2.09';
+our $VERSION = '2.10';
our $Debug ||= 0;
@@ -115,6 +115,7 @@
':2.07' => [qw(:v207)], # Last release without chmod
':2.08' => [qw(:default)],
':2.09' => [qw(:default)],
+ ':2.10' => [qw(:default)],
);
# chmod was only introduced in 2.07
@@ -632,11 +633,11 @@
if ($void) {
return qq/return (defined wantarray)?$call(@argv):
- $call(@argv) || croak "Can't $name(\@_)/ .
- ($core ? ': $!' : ', \$! is \"$!\"') . '"'
+ $call(@argv) || Carp::croak("Can't $name(\@_)/ .
+ ($core ? ': $!' : ', \$! is \"$!\"') . '")'
} else {
- return qq{return $call(@argv) || croak "Can't $name(\@_)} .
- ($core ? ': $!' : ', \$! is \"$!\"') . '"';
+ return qq{return $call(@argv) || Carp::croak("Can't $name(\@_)} .
+ ($core ? ': $!' : ', \$! is \"$!\"') . '")';
}
}
@@ -1098,7 +1099,7 @@
{
local $@;
- $code = eval("package $pkg; use Carp; $code"); ## no critic
+ $code = eval("package $pkg; require Carp; $code"); ## no critic
$E = $@;
}
@@ -1176,7 +1177,7 @@
>;
}
- $leak_guard .= qq< croak "Internal error in Fatal/autodie. Leak-guard failure"; } >;
+ $leak_guard .= qq< Carp::croak("Internal error in Fatal/autodie. Leak-guard failure"); } >;
# warn "$leak_guard\n";
Modified: branches/upstream/libautodie-perl/current/lib/autodie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie.pm Mon Mar 1 21:57:23 2010
@@ -8,7 +8,7 @@
our $VERSION;
BEGIN {
- $VERSION = '2.09';
+ $VERSION = '2.10';
}
use constant ERROR_WRONG_FATAL => q{
Modified: branches/upstream/libautodie-perl/current/lib/autodie/exception.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/exception.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception.pm Mon Mar 1 21:57:23 2010
@@ -14,7 +14,7 @@
use if ($] >= 5.010), overload => '~~' => "matches";
-our $VERSION = '2.09';
+our $VERSION = '2.10';
my $PACKAGE = __PACKAGE__; # Useful to have a scalar for hash keys.
Modified: branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm Mon Mar 1 21:57:23 2010
@@ -5,7 +5,7 @@
use base 'autodie::exception';
use Carp qw(croak);
-our $VERSION = '2.09';
+our $VERSION = '2.10';
my $PACKAGE = __PACKAGE__;
Modified: branches/upstream/libautodie-perl/current/lib/autodie/hints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/hints.pm?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/hints.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/hints.pm Mon Mar 1 21:57:23 2010
@@ -5,7 +5,7 @@
use constant PERL58 => ( $] < 5.009 );
-our $VERSION = '2.09';
+our $VERSION = '2.10';
=head1 NAME
Modified: branches/upstream/libautodie-perl/current/t/internal-backcompat.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/internal-backcompat.t?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/internal-backcompat.t (original)
+++ branches/upstream/libautodie-perl/current/t/internal-backcompat.t Mon Mar 1 21:57:23 2010
@@ -43,9 +43,9 @@
[ 3, qw($_[0] $_[1] @_[2..$#_])]
],
q{ if (@_ == 1) {
-return CORE::open($_[0]) || croak "Can't open(@_): $!" } elsif (@_ == 2) {
-return CORE::open($_[0], $_[1]) || croak "Can't open(@_): $!" } elsif (@_ >= 3) {
-return CORE::open($_[0], $_[1], @_[2..$#_]) || croak "Can't open(@_): $!"
+return CORE::open($_[0]) || Carp::croak("Can't open(@_): $!") } elsif (@_ == 2) {
+return CORE::open($_[0], $_[1]) || Carp::croak("Can't open(@_): $!") } elsif (@_ >= 3) {
+return CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")
}
die "Internal error: open(@_): Do not expect to get ", scalar(@_), " arguments";
}
@@ -62,12 +62,12 @@
# Core # Call # Name # Void # Args
[
[ 1, 'CORE::open', 'open', 0, qw($_[0] $_[1] @_[2..$#_]) ],
- q{return CORE::open($_[0], $_[1], @_[2..$#_]) || croak "Can't open(@_): $!"},
+ q{return CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")},
],
[
[ 1, 'CORE::open', 'open', 1, qw($_[0] $_[1] @_[2..$#_]) ],
q{return (defined wantarray)?CORE::open($_[0], $_[1], @_[2..$#_]):
- CORE::open($_[0], $_[1], @_[2..$#_]) || croak "Can't open(@_): $!"},
+ CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")},
],
);
Modified: branches/upstream/libautodie-perl/current/t/open.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/open.t?rev=53480&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/open.t (original)
+++ branches/upstream/libautodie-perl/current/t/open.t Mon Mar 1 21:57:23 2010
@@ -56,7 +56,7 @@
eval {
use autodie;
- die "Windows does not support multi-arg pipe" if $^O eq "Win32";
+ die "Windows does not support multi-arg pipe" if $^O eq "MSWin32";
open(my $fh, '-|', "true");
};
More information about the Pkg-perl-cvs-commits
mailing list