Perl 5.36.0 does not yet support undef-or, but we don't need it here …

…anyway
deriv-com · Jul 17, 2024 · 419be25 · 419be25
1 parent fdea9a7
commit 419be25
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
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 {