8
0
2023-08-08 09:31:13 +00:00
committed by Git OBS Bridge
parent 2dc5d3c4e4
commit 89ac43f9f9
4 changed files with 3 additions and 3 deletions

13
fix_perl538.patch Normal file
View File

@@ -0,0 +1,13 @@
--- t/tlib/Exception/BaseTest.pm
+++ 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);