1use warnings; 2use strict; 3 4use Config; 5use IPC::Shareable; 6use Test::More; 7 8if ($Config{nvsize} != 8) { 9 plan skip_all => "Storable not compatible with long doubles"; 10} 11 12system "$^X t/_spawn"; 13 14tie my %h, 'IPC::Shareable', { 15 key => 'aaaa', 16# destroy => 1, 17 mode => 0666, 18}; 19 20is $h{t70}->[1], 5, "hash element ok"; 21 22IPC::Shareable->unspawn('aaaa'); 23 24is %h, 1, "hash still exists with unspawn and no destroy"; 25 26done_testing(); 27