simplify storable error-check

PDLPorters · Feb 6, 2024 · ca5df2c · ca5df2c
1 parent 3a90dce
commit ca5df2c
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/IO/Storable/storable.pd b/IO/Storable/storable.pd
@@ -290,8 +290,7 @@ sub STORABLE_thaw {
 #  return if $cloning;
   my $class = ref $pdl;
   if (defined $hashref) {
-    croak "serial data with hashref!" unless !defined $serial ||
-      $serial eq "";
+    croak "serial data with hashref!" unless ($serial//'') eq "";
     @$pdl{keys %$hashref} = values %$hashref;
   } else {
     # all the magic is happening in pdlunpack