X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=95a22ed74520b2f521fc871b075b60b7ba4489e5;hb=0a7ed27cbdbb90c176fc6be11c48e70776c8df84;hp=5e8e8e396302ee3ebf951f08f50927765c0c1247;hpb=2436778e0e29dd2f20d72518fec5bc8c29efe4e4;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 5e8e8e3..95a22ed 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -720,7 +720,8 @@ BOOT:
  HV *stash;
  MY_CXT_INIT;
  stash = gv_stashpv(__PACKAGE__, 1);
- newCONSTSUB(stash, "TOP", newSViv(0));
+ newCONSTSUB(stash, "TOP",           newSViv(0));
+ newCONSTSUB(stash, "SU_THREADSAFE", newSVuv(SU_THREADSAFE));
  newXSproto("Scope::Upper::unwind", XS_Scope__Upper_unwind, file, NULL);
 }