forked from pool/perl-Exception-Base
correct patch name
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Exception-Base?expand=0&rev=12
This commit is contained in:
13
fix_perl538.patch
Normal file
13
fix_perl538.patch
Normal 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);
|
||||
|
Reference in New Issue
Block a user