646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
21 lines
698 B
Diff
21 lines
698 B
Diff
smartmatch deprecated in perl-5.37.10
|
|
|
|
Patch by @pghmcfc from
|
|
https://github.com/dex4er/perl-Exception-Base/issues/5#issuecomment-1637075218
|
|
|
|
diff --git a/t/tlib/Exception/BaseTest.pm b/t/tlib/Exception/BaseTest.pm
|
|
index d590d12..e531ed7 100644
|
|
--- a/t/tlib/Exception/BaseTest.pm
|
|
+++ b/t/tlib/Exception/BaseTest.pm
|
|
@@ -569,8 +569,9 @@ sub test_overload {
|
|
$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);
|
|
|