}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
}
{
my $object : shared = &share({});
- threads->new(sub {
+ threads->create(sub {
bless $object, 'test1';
})->join;
ok(16, ref($object) eq 'test1', "blessing does work");
ok(19, is_shared($foo), "Check for sharing");
ok(20, is_shared(%foo), "Check for sharing");
+exit(0);
+
# EOF