r39167 - in /branches/upstream/libautodie-perl/current: Changes META.yml lib/Fatal.pm lib/autodie.pm lib/autodie/exception.pm lib/autodie/exception/system.pm lib/autodie/hints.pm t/blog_hints.t t/hints.t
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Thu Jul 2 20:52:58 UTC 2009
Author: ryan52-guest
Date: Thu Jul 2 20:52:51 2009
New Revision: 39167
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39167
Log:
[svn-upgrade] Integrating new upstream version, libautodie-perl (2.04)
Modified:
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/blog_hints.t
branches/upstream/libautodie-perl/current/t/hints.t
Modified: branches/upstream/libautodie-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/Changes?rev=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/Changes (original)
+++ branches/upstream/libautodie-perl/current/Changes Thu Jul 2 20:52:51 2009
@@ -1,4 +1,15 @@
Revision history for autodie
+
+2.04 Thu Jul 2 18:56:57 AUSEST 2009
+
+ * TEST: Removed spurious warning about insufficient credit.
+
+ * TEST: hints.t produces less debugging output when testing
+ the Perl core. (Thanks to Jerry D. Hedden)
+
+ * TEST: hints.t no longer spuriously fails when checking
+ the return values from File::Copy under Windows before
+ Perl 5.10.1. (Thanks to Curtis Jewell)
2.03 Wed Jul 1 15:39:16 AUSEST 2009
Modified: branches/upstream/libautodie-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/META.yml?rev=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/META.yml (original)
+++ branches/upstream/libautodie-perl/current/META.yml Thu Jul 2 20:52:51 2009
@@ -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.03
+version: 2.04
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=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/Fatal.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/Fatal.pm Thu Jul 2 20:52:51 2009
@@ -39,7 +39,7 @@
use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
# All the Fatal/autodie modules share the same version number.
-our $VERSION = '2.03';
+our $VERSION = '2.04';
our $Debug ||= 0;
@@ -98,7 +98,7 @@
':2.01' => [qw(:default)],
':2.02' => [qw(:default)],
':2.03' => [qw(:default)],
-
+ ':2.04' => [qw(:default)],
);
$TAGS{':all'} = [ keys %TAGS ];
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=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie.pm Thu Jul 2 20:52:51 2009
@@ -8,7 +8,7 @@
our $VERSION;
BEGIN {
- $VERSION = '2.03';
+ $VERSION = '2.04';
}
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=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception.pm Thu Jul 2 20:52:51 2009
@@ -14,7 +14,7 @@
use if ($] >= 5.010), overload => '~~' => "matches";
-our $VERSION = '2.03';
+our $VERSION = '2.04';
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=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm Thu Jul 2 20:52:51 2009
@@ -5,7 +5,7 @@
use base 'autodie::exception';
use Carp qw(croak);
-our $VERSION = '2.03';
+our $VERSION = '2.04';
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=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/hints.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/hints.pm Thu Jul 2 20:52:51 2009
@@ -5,7 +5,7 @@
use constant PERL58 => ( $] < 5.009 );
-our $VERSION = '2.03';
+our $VERSION = '2.04';
=head1 NAME
Modified: branches/upstream/libautodie-perl/current/t/blog_hints.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/blog_hints.t?rev=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/blog_hints.t (original)
+++ branches/upstream/libautodie-perl/current/t/blog_hints.t Thu Jul 2 20:52:51 2009
@@ -28,5 +28,3 @@
is($@->return->[0], undef);
is($@->return->[1], 'Insufficient credit');
like("$@", qr/Insufficient credit/);
-
-warn $@;
Modified: branches/upstream/libautodie-perl/current/t/hints.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/hints.t?rev=39167&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/hints.t (original)
+++ branches/upstream/libautodie-perl/current/t/hints.t Thu Jul 2 20:52:51 2009
@@ -23,7 +23,7 @@
use autodie qw(fail_on_empty fail_on_false fail_on_undef);
diag("Sub::Identify ", exists( $INC{'Sub/Identify.pm'} ) ? "is" : "is not",
- " loaded");
+ " loaded") if (! $ENV{PERL_CORE});
my $hints = "autodie::hints";
@@ -61,7 +61,14 @@
isa_ok($@, "autodie::exception");
is($@->function, "File::Copy::copy", "Function should be original name");
-is($@->return, 0, "File::Copy returns zero on failure");
+
+SKIP: {
+ skip("File::Copy is weird on Win32 before 5.10.1", 1)
+ if ( ! PERL5101 and $^O eq "MSWin32" );
+
+ is($@->return, 0, "File::Copy returns zero on failure");
+}
+
is($@->context, "scalar", "File::Copy called in scalar context");
# List context test.
@@ -76,7 +83,13 @@
isa_ok($@, "autodie::exception");
is($@->function, "File::Copy::copy", "Function should be original name");
-is_deeply($@->return, [0], "File::Copy returns zero on failure");
+
+SKIP: {
+ skip("File::Copy is weird on Win32 before 5.10.1", 1)
+ if ( ! PERL5101 and $^O eq "MSWin32" );
+
+ is_deeply($@->return, [0], "File::Copy returns zero on failure");
+}
is($@->context, "list", "File::Copy called in list context");
# Tests on loaded funcs.
More information about the Pkg-perl-cvs-commits
mailing list