Sereal does not serialise code refs

Updates #358 (even though it has been closed)
shawnlaffan · Sep 3, 2016 · a68eb20 · a68eb20
1 parent 6cf74d6
commit a68eb20
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/lib/Biodiverse/Common.pm b/lib/Biodiverse/Common.pm
@@ -831,11 +831,15 @@ sub save_to_sereal {
 
     use Sereal::Encoder;
 
-    my $encoder = Sereal::Encoder->new();
-    my $out = $encoder->encode($self);
+    my $encoder = Sereal::Encoder->new({
+        undef_unknown => 1,  #  strip any code refs
+    });
 
     open (my $fh, '>', $file) or die "Cannot open $file";
-    print {$fh} $out;
+
+    eval {
+        print {$fh} $encoder->encode($self);
+    };
     my $e = $EVAL_ERROR;
 
     $fh->close;