Merge pull request #330 from tom-binary/backcompat/signature_parameters

Backward compatibility for perl 5.36.0
deriv-com · Jul 17, 2024 · 4825cac · 4825cac
2 parents 772c193 + af322c4
commit 4825cac
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 3 deletions.
diff --git a/lib/Myriad/Class.pm b/lib/Myriad/Class.pm
@@ -245,7 +245,6 @@ sub import {
         current_sub
         evalbytes
         fc
-        module_true
         postderef_qq
         state
         unicode_eval

diff --git a/lib/Myriad/Storage/Implementation/Memory.pm b/lib/Myriad/Storage/Implementation/Memory.pm
@@ -273,7 +273,7 @@ Returns a L<Future> which will resolve to .
 
 =cut
 
-async method hash_set : Defer ($k, $hash_key, $v //= undef) {
+async method hash_set : Defer ($k, $hash_key, $v = undef) {
     if(ref $hash_key eq 'HASH') {
         @{$data{$k}}{keys $hash_key->%*} = values $hash_key->%*;
         return 0 + keys $hash_key->%*;

diff --git a/lib/Myriad/Storage/Implementation/Redis.pm b/lib/Myriad/Storage/Implementation/Redis.pm
@@ -313,7 +313,7 @@ Returns a L<Future> which will resolve to .
 
 =cut
 
-async method hash_set ($k, $hash_key, $v //= undef) {
+async method hash_set ($k, $hash_key, $v = undef) {
     if(ref $hash_key eq 'HASH') {
         await $redis->hmset($self->apply_prefix($k), $hash_key->%*);
     } else {