pyrox.dev
1smartmatch deprecated in perl-5.37.10
2
3Patch by @pghmcfc from
4https://github.com/dex4er/perl-Exception-Base/issues/5#issuecomment-1637075218
5
6diff --git a/t/tlib/Exception/BaseTest.pm b/t/tlib/Exception/BaseTest.pm
7index d590d12..e531ed7 100644
8--- a/t/tlib/Exception/BaseTest.pm
9+++ b/t/tlib/Exception/BaseTest.pm
10@@ -569,8 +569,9 @@ sub test_overload {
11 $self->assert_matches(qr/String at /, $obj);
12
13 # smart matching for Perl 5.10
14- if ($] >= 5.010) {
15+ # Deprecation warning added in 5.37.10
16+ if ($] >= 5.010 && $] < 5.037010) {
17 no if $] >= 5.018, warnings => 'experimental::smartmatch';
18 eval q{
19 $self->assert_num_equals(1, 'String' ~~ $obj);
20