Thanks for the reply, I thought already in this direction, it does not work for :shared ...
[rrr]$ cat /tmp/test_storable_shared.pl
#!/usr/bin/perl
use strict;
use warnings;
use Storable;
use threads;
use threads::shared;
my $file = "fff";
my $href_1 = shared_clone({ a => 1});
untie $href_1;
store($href_1, $file);
my $href_2 = retrieve($file);
printf "%s => %s\n", $_, $href_2->{$_} for keys %$href_2;
[rrr]$
[rrr]$ /tmp/test_storable_shared.pl
Can't locate object method "FETCH" via package "threads::shared::tie"
+at /tmp/test_storable_shared.pl line 20.
[rrr]$
|