This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix multiplicity build, broken by 328552296d8d53b3.
authorNicholas Clark <nick@ccl4.org>
Sun, 14 Nov 2010 20:57:33 +0000 (20:57 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 14 Nov 2010 21:02:25 +0000 (21:02 +0000)
It wrongly had #ifdef USE_ITHREADS, which should have been #ifdef MULTIPLICITY.

ext/B/B.xs

index a58ff00..ad9c0a6 100644 (file)
@@ -599,7 +599,7 @@ typedef HE      *B__HE;
 typedef struct refcounted_he   *B__RHE;
 #endif
 
-#ifdef USE_ITHREADS
+#ifdef MULTIPLICITY
 #  define ASSIGN_COMMON_ALIAS(var) \
     STMT_START { XSANY.any_i32 = offsetof(struct interpreter, var); } STMT_END
 #else
@@ -617,7 +617,7 @@ static XSPROTO(intrpvar_sv_common)
     SV *ret;
     if (items != 0)
        croak_xs_usage(cv,  "");
-#ifdef USE_ITHREADS
+#ifdef MULTIPLICITY
     ret = *(SV **)(XSANY.any_i32 + (char *)my_perl);
 #else
     ret = *(SV **)(XSANY.any_ptr);