perlPackages.ExceptionBase: add patch for perl 5.38.0
This commit is contained in:
parent
d01224781f
commit
5a9c09f2f7
|
@ -0,0 +1,20 @@
|
||||||
|
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);
|
||||||
|
|
|
@ -8668,6 +8668,9 @@ with self; {
|
||||||
hash = "sha256-VyPdePSsC00mKgXqRq9mPqANgJay6cCkNRXCEHYOHnU=";
|
hash = "sha256-VyPdePSsC00mKgXqRq9mPqANgJay6cCkNRXCEHYOHnU=";
|
||||||
};
|
};
|
||||||
buildInputs = [ TestUnitLite ];
|
buildInputs = [ TestUnitLite ];
|
||||||
|
patches = [
|
||||||
|
../development/perl-modules/Exception-Base-remove-smartmatch-when-5.38.0.patch
|
||||||
|
];
|
||||||
meta = {
|
meta = {
|
||||||
description = "Lightweight exceptions";
|
description = "Lightweight exceptions";
|
||||||
license = with lib.licenses; [ artistic1 gpl1Plus ];
|
license = with lib.licenses; [ artistic1 gpl1Plus ];
|
||||||
|
|
Loading…
Reference in a new issue