X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;h=cf005cd34fd23c2e14f343950597da42925ef465;hp=27d5d435dde1c9650d9af67167d4325dba9f0eca;hb=40ef72f0c01074b9767916dee4cb8eb478929e6f;hpb=0a0dd81f4af6ef04e4d11604bda2458a06a8577b

diff --git a/Types.xs b/Types.xs
index 27d5d43..cf005cd 100644
--- a/Types.xs
+++ b/Types.xs
@@ -45,6 +45,11 @@
 
 /* ... Thread safety and multiplicity ...................................... */
 
+/* Safe unless stated otherwise in Makefile.PL */
+#ifndef LT_FORKSAFE
+# define LT_FORKSAFE 1
+#endif
+
 #ifndef LT_MULTIPLICITY
 # if defined(MULTIPLICITY) || defined(PERL_IMPLICIT_CONTEXT)
 #  define LT_MULTIPLICITY 1
@@ -833,6 +838,7 @@ BOOT:
 
   stash = gv_stashpvn(__PACKAGE__, __PACKAGE_LEN__, 1);
   newCONSTSUB(stash, "LT_THREADSAFE", newSVuv(LT_THREADSAFE));
+  newCONSTSUB(stash, "LT_FORKSAFE",   newSVuv(LT_FORKSAFE));
  }
 
  lt_setup();