mirror of
https://anongit.gentoo.org/git/repo/gentoo.git
synced 2025-12-19 08:29:37 +00:00
15 lines
519 B
Diff
15 lines
519 B
Diff
https://bugs.gentoo.org/928246
|
|
https://github.com/dex4er/perl-Exception-Base/issues/5
|
|
|
|
--- a/t/tlib/Exception/BaseTest.pm
|
|
+++ b/t/tlib/Exception/BaseTest.pm
|
|
@@ -569,7 +569,8 @@
|
|
$self->assert_matches(qr/String at /, $obj);
|
|
|
|
# smart matching for Perl 5.10
|
|
- if ($] >= 5.010) {
|
|
+ # Deprecation warning added in 5.37.10
|
|
+ if ($] >= 5.010 && $] < 5.037010) {
|
|
no if $] >= 5.018, warnings => 'experimental::smartmatch';
|
|
eval q{
|
|
$self->assert_num_equals(1, 'String' ~~ $obj);
|