Select Code to Download

     
use forks::BerkeleyDB;
use forks::BerkeleyDB::shared;
...
my @oky: shared;
my $doky = ['sims','sim2'];
@oky = ($doky,'2');

Invalid value for shared scalar: ARRAY at /usr/local/lib/perl/5.8.8/fo
+rks/shared.pm line 631
    threads::shared::_croak('Invalid value for shared scalar: ARRAY') 
+called at /usr/local/share/perl/5.8.8/forks/BerkeleyDB/shared.pm line
+ 92
    forks::BerkeleyDB::shared::_filter_store_value() called at /usr/lo
+cal/share/perl/5.8.8/forks/BerkeleyDB/shared/array.pm line 53
    forks::BerkeleyDB::shared::array::STORE('forks::BerkeleyDB::shared
+::array=ARRAY(0xd44c90)', 0, 'ARRAY(0xd0a790)') called at /usr/local/
+share/perl/5.8.8/forks/BerkeleyDB/shared.pm line 381
    threads::shared::AUTOLOAD('threads::shared=HASH(0xd44a60)', 0, 'AR
+RAY(0xd0a790)') called at test.cgi line 6