p4raw-id: //depot/perlio@14463
s |void |apply_attrs_my |HV *stash|OP *target|OP *attrs|OP **imopsp
# if defined(PL_OP_SLAB_ALLOC)
s |void* |Slab_Alloc |int m|size_t sz
-s |void |Slab_Free |void *op
+s |void |Slab_Free |void *op
# endif
#endif
-use Test::More tests => 53;
use strict;
+use Config;
+BEGIN {
+ require Test::More;
+ if ($Config{'useithreads'}) {
+ Test::More->import( tests => 53 );
+ }
+ else {
+ Test::More->import(skip_all => "no useithreads");
+ }
+}
+
my @array;
my %hash;
array(24,[],'Thing');
hash(24,[],'Thing');
+
import threads::shared;
share(\@array);
# define MYSWAP
#endif
-/* Cannot include embed.h here on Win32 as win32.h has not
+/* Cannot include embed.h here on Win32 as win32.h has not
yet been included and defines some config variables e.g. HAVE_INTERP_INTERN
*/
#if !defined(PERL_FOR_X2P) && !(defined(WIN32)||defined(VMS))