X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlvars.h;h=4970146b07a4faf17557c7b71252c546cda0f154;hb=25ff0154ccf606eb5512a8cde622caf50e20fba3;hp=94792fe0dae07b9872b7451450ffd49ca25195db;hpb=428eed4a3c021dd32b21fe7b786a478613c6dcc3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlvars.h b/perlvars.h
index 94792fe..4970146 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -146,3 +146,8 @@ PERLVAR(Ghints_mutex, perl_mutex)    /* Mutex for refcounted he refcounting */
 #if defined(USE_ITHREADS)
 PERLVAR(Gperlio_mutex, perl_mutex)    /* Mutex for perlio fd refcounts */
 #endif
+
+/* this is currently set without MUTEX protection, so keep it a type which
+ * can be set atomically (ie not a bit field) */
+PERLVARI(Gveto_cleanup,	int, FALSE)	/* exit without cleanup */
+