Extract _DB__handle_watch_expressions() .

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 9817bd2..b6d69ed 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -299,7 +299,6 @@ PERLVAR(I, exit_flags,      U8)             /* was exit() unexpected, etc. */
 PERLVAR(I, inplace,    char *)
 PERLVAR(I, e_script,   SV *)
 
-/* magical thingies */
 PERLVAR(I, basetime,   Time_t)         /* $^T */
 
 PERLVARI(I, maxsysfd,  I32,    MAXSYSFD)
@@ -610,6 +609,7 @@ PERLVAR(I, XPosixXDigit, SV *)
 PERLVAR(I, VertSpace,   SV *)
 
 PERLVAR(I, NonL1NonFinalFold,   SV *)
+PERLVAR(I, HasMultiCharFold,   SV *)
 
 /* utf8 character class swashes */
 PERLVAR(I, utf8_alnum, SV *)
@@ -631,6 +631,8 @@ PERLVAR(I, utf8_toupper, SV *)
 PERLVAR(I, utf8_totitle, SV *)
 PERLVAR(I, utf8_tolower, SV *)
 PERLVAR(I, utf8_tofold,        SV *)
+PERLVAR(I, utf8_charname_begin, SV *)
+PERLVAR(I, utf8_charname_continue, SV *)
 PERLVAR(I, last_swash_hv, HV *)
 PERLVAR(I, last_swash_tmps, U8 *)
 PERLVAR(I, last_swash_slen, STRLEN)
@@ -768,7 +770,6 @@ PERLVAR(I, custom_ops,      HV *)           /* custom op registrations */
 PERLVARI(I, globhook,  globhook_t, NULL)
 
 PERLVARI(I, glob_index,        int,    0)
-PERLVARI(I, padlist_generation, U32, 1)        /* id to identify padlist clones */
 PERLVAR(I, reentrant_retint, int)      /* Integer return value from reentrant functions */
 
 /* The last unconditional member of the interpreter structure when 5.10.0 was