summaryrefslogtreecommitdiff
path: root/cpan
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2021-02-19 13:58:58 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2021-02-19 14:15:19 +0000
commitea6c7d00a911c12057d4f534a05e8964d5a4a47a (patch)
tree9c347b7f817b3fade6c2f5a56fbaac3ff419a45a /cpan
parent9f96ea80ded61473ce903ba8dd250cafade9ac84 (diff)
downloadperl-ea6c7d00a911c12057d4f534a05e8964d5a4a47a.tar.gz
Update autodie to CPAN version 2.34
[DELTA] 2.34 2021-01-22 11:03:19-06:00 America/Chicago * Remove rt.cpan.org reference.
Diffstat (limited to 'cpan')
-rw-r--r--cpan/autodie/lib/Fatal.pm4
-rw-r--r--cpan/autodie/lib/autodie.pm7
-rw-r--r--cpan/autodie/lib/autodie/Scope/Guard.pm2
-rw-r--r--cpan/autodie/lib/autodie/Scope/GuardStack.pm2
-rw-r--r--cpan/autodie/lib/autodie/Util.pm2
-rw-r--r--cpan/autodie/lib/autodie/exception.pm4
-rw-r--r--cpan/autodie/lib/autodie/exception/system.pm2
-rw-r--r--cpan/autodie/lib/autodie/hints.pm2
-rw-r--r--cpan/autodie/lib/autodie/skip.pm2
-rw-r--r--cpan/autodie/t/exception_nonref.t11
10 files changed, 26 insertions, 12 deletions
diff --git a/cpan/autodie/lib/Fatal.pm b/cpan/autodie/lib/Fatal.pm
index 09abfb8536..744ca7228b 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.32'; # VERSION: Generated by DZP::OurPkg::Version
+our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg::Version
our $Debug ||= 0;
@@ -168,6 +168,8 @@ my %TAGS = (
':2.30' => [qw(:default)],
':2.31' => [qw(:default)],
':2.32' => [qw(:default)],
+ ':2.33' => [qw(:default)],
+ ':2.34' => [qw(:default)],
);
diff --git a/cpan/autodie/lib/autodie.pm b/cpan/autodie/lib/autodie.pm
index 8f62d670d8..0c1b9ac04c 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.32'; # VERSION: Generated by DZP::OurPkg::Version
+ our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg::Version
}
use constant ERROR_WRONG_FATAL => q{
@@ -306,7 +306,7 @@ return an empty list, or a list consisting only of a single undef
element.
Some builtins (e.g. C<chdir> or C<truncate>) has a call signature that
-cannot completely be representated with a Perl prototype. This means
+cannot completely be represented with a Perl prototype. This means
that some valid Perl code will be invalid under autodie. As an example:
chdir(BAREWORD);
@@ -392,8 +392,7 @@ C<autodie> with block eval is considered good practice.
=head2 REPORTING BUGS
Please report bugs via the GitHub Issue Tracker at
-L<https://github.com/pjf/autodie/issues> or via the CPAN Request
-Tracker at L<https://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie>.
+L<https://github.com/pjf/autodie/issues>.
=head1 FEEDBACK
diff --git a/cpan/autodie/lib/autodie/Scope/Guard.pm b/cpan/autodie/lib/autodie/Scope/Guard.pm
index 8ee412bac4..2be221d410 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.32'; # VERSION
+our $VERSION = '2.34'; # 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 9b0a906d96..8cb1be1fa2 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.32'; # VERSION
+our $VERSION = '2.34'; # 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 1a04a195c0..95de13eb22 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.32'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.34'; # 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 d4c14f9f7d..f4035d28c7 100644
--- a/cpan/autodie/lib/autodie/exception.pm
+++ b/cpan/autodie/lib/autodie/exception.pm
@@ -4,7 +4,9 @@ use strict;
use warnings;
use Carp qw(croak);
-our $VERSION = '2.32'; # VERSION: Generated by DZP::OurPkg:Version
+use Scalar::Util qw(blessed);
+
+our $VERSION = '2.34'; # 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 b0e270c056..afe1617c84 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.32'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.34'; # 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 c3f83ed0ec..3778cc75dd 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.32'; # VERSION: Generated by DZP::OurPkg:Version
+our $VERSION = '2.34'; # 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 ad9706caa0..32aba04fa5 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.32'; # VERSION
+our $VERSION = '2.34'; # 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/exception_nonref.t b/cpan/autodie/t/exception_nonref.t
new file mode 100644
index 0000000000..7fdbc31fc0
--- /dev/null
+++ b/cpan/autodie/t/exception_nonref.t
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 1;
+use autodie;
+
+eval { syswrite "xxxxxxxx", \*STDOUT };
+my $err = $@;
+
+like( $err, qr<xxxxxxxx>, 'expected failure on attempt to write to non-reference' );
+
+done_testing();