- Improved the Block.fork() to use an anonymous temporary file, provi…

…ded by Perl's open() function

lib/Sidef/Types/Block/Code.pm

@@ -360,18 +360,14 @@ package Sidef::Types::Block::Code {
     sub fork {
         my ($self) = @_;
 
-        state $x = do {
-            require Storable;
-            require File::Temp;
-        };
-
-        my ($fh, $filename) = File::Temp::tempfile(SUFFIX => '.rst');
-        my $fork = Sidef::Types::Block::Fork->new(result => $filename);
+        state $x = require Storable;
+        open(my $fh, '+>', undef);    # an anonymous temporary file
+        my $fork = Sidef::Types::Block::Fork->new(fh => $fh);
 
         my $pid = fork() // die "[FATAL ERROR]: cannot fork";
         if ($pid == 0) {
             srand();
-            Storable::store($self->run, $filename);
+            Storable::store_fd($self->run, $fh);
             exit 0;
         }
 

lib/Sidef/Types/Block/Fork.pm

@@ -13,14 +13,12 @@ package Sidef::Types::Block::Fork {
         # Wait for the process to finish
         waitpid($self->{pid}, 0);
 
-        # Return when the fork doesn't hold a result
-        exists($self->{result})
-          or return;
+        # Return when the fork doesn't hold a file-handle
+        exists($self->{fh}) or return;
 
         state $x = require Storable;
-        my $ref = eval { Storable::retrieve($self->{result}) };
-        unlink(delete $self->{result});
-        $ref;
+        seek($self->{fh}, 0, 0);    # rewind at the beginning
+        scalar eval { Storable::fd_retrieve($self->{fh}) };
     }
 
     *wait = \&get;