Feel-good cleanup.

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index f44ccce..d7c4269 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -8,6 +8,8 @@
  * XSUB.h provides wrapper functions via perlapi.h that make this
  * irrelevant, but not all code may be expected to #include XSUB.h. */
 
+/* Don't forget to add your variable also to perl_clone()! */
+
 /* The 'I' prefix is only needed for vars that need appropriate #defines
  * generated when built with or without MULTIPLICITY.  It is also used
  * to generate the appropriate export list for win32.
@@ -48,7 +50,7 @@ The C variable which corresponds to Perl's $^W warning variable.
 */
 
 PERLVAR(Idowarn,       U8)
-PERLVAR(Iwidesyscalls, bool)           /* wide system calls */
+PERLVAR(Iwidesyscalls, bool)           /* unused since 5.8.1 */
 PERLVAR(Idoextract,    bool)
 PERLVAR(Isawampersand, bool)           /* must save all match strings */
 PERLVAR(Iunsafe,       bool)
@@ -240,7 +242,10 @@ PERLVAR(Iorigalen, U32)
 PERLVAR(Ipidstatus,    HV *)           /* pid-to-status mappings for waitpid */
 PERLVARI(Imaxo,        int,    MAXO)           /* maximum number of ops */
 PERLVAR(Iosname,       char *)         /* operating system */
-PERLVARI(Ish_path,     char *, SH_PATH)/* full path of shell */
+
+/* For binary compatibility with older versions only */
+PERLVARI(Ish_path_compat,      char *, SH_PATH)/* full path of shell */
+
 PERLVAR(Isighandlerp,  Sighandler_t)
 
 PERLVAR(Ixiv_arenaroot,        XPV*)           /* list of allocated xiv areas */
@@ -482,7 +487,7 @@ PERLVARI(IOpSpace,I32,0)
 PERLVAR(IOpSlab,I32 *)
 #endif
 
-PERLVAR(Iwantutf8, bool)       /* want utf8 as the default discipline */
+PERLVAR(Iutf8locale,   bool)           /* utf8 locale detected */
 
 PERLVAR(Iutf8_idstart, SV *)
 PERLVAR(Iutf8_idcont,  SV *)
@@ -495,6 +500,18 @@ PERLVARI(Iclocktick, long, 0)      /* this many times() ticks in a second */
 
 PERLVARI(Iin_load_module, int, 0)      /* to prevent recursions in PerlIO_find_layer */
 
+PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
+
+PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
+
+PERLVAR(Istashcache,   HV *)           /* Cache to speed up S_method_common */
+
+PERLVAR(Ireentrant_retint, int)        /* Integer return value from reentrant functions */
+
+PERLVAR(IDBassertion,   SV *)
+
+/* Don't forget to add your variable also to perl_clone()! */
+
 /* New variables must be added to the very end, before this comment,
  * for binary compatibility (the offsets of the old members must not change).
  * XSUB.h provides wrapper functions via perlapi.h that make this