mirror of
https://github.com/NixOS/nixpkgs.git
synced 2024-11-22 15:03:28 +00:00
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=";
|
||||
};
|
||||
buildInputs = [ TestUnitLite ];
|
||||
patches = [
|
||||
../development/perl-modules/Exception-Base-remove-smartmatch-when-5.38.0.patch
|
||||
];
|
||||
meta = {
|
||||
description = "Lightweight exceptions";
|
||||
license = with lib.licenses; [ artistic1 gpl1Plus ];
|
||||
|
Loading…
Reference in New Issue
Block a user