| Subject: | Uses private method of Test::Builder |
t/lib/T4Values/TestCant.pm is using Test::Builder->_try, a private
method. This method will disappear in a coming major release. The
attached patch replaces it with an eval and localizing some variables
which might be affected by an eval.
| Subject: | mhs.patch |
diff --git a/t/lib/T4Values/TestCant.pm b/t/lib/T4Values/TestCant.pm
index 25c16a2..6ff99da 100644
--- a/t/lib/T4Values/TestCant.pm
+++ b/t/lib/T4Values/TestCant.pm
@@ -34,7 +34,8 @@ sub can_unok($@) {
my @nok = ();
foreach my $method (@methods) {
- $tb->_try( sub { !$proto->can($method) } ) or push @nok, $method;
+ local($!, $@);
+ eval { !$proto->can($method) } or push @nok, $method;
}
my $name =