PUSHSUB: make retop a parameter

[perl5.git] / perlvars.h

diff --git a/perlvars.h b/perlvars.h
index 56cb96c..86a369e 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -10,9 +10,14 @@
 
 /*
 =head1 Global Variables
-
 These variables are global to an entire process.  They are shared between
-all interpreters and all threads in a process.
+all interpreters and all threads in a process.  Any variables not documented
+here may be changed or removed without notice, so don't use them!
+If you feel you really do need to use an unlisted variable, first send email to
+L<perl5-porters@perl.org|mailto:perl5-porters@perl.org>.  It may be that
+someone there will point out a way to accomplish what you need without using an
+internal variable.  But if not, you should get a go-ahead to document and then
+use the variable.
 
 =cut
 */
@@ -97,7 +102,7 @@ PERLVAR(G, hints_mutex, perl_mutex)    /* Mutex for refcounted he refcounting */
 #endif
 
 #ifdef DEBUGGING
-PERLVAR(G, watch_pvx,  char *)
+PERLVARI(G, watch_pvx, char *, NULL)
 #endif
 
 /*
@@ -237,7 +242,3 @@ PERLVAR(G, malloc_mutex, perl_mutex)        /* Mutex for malloc */
 
 PERLVARI(G, hash_seed_set, bool, FALSE)        /* perl.c */
 PERLVARA(G, hash_seed, PERL_HASH_SEED_BYTES, unsigned char) /* perl.c and hv.h */
-
-PERLVARI(G, breakpoints, U8 *, NULL)   /* For setting DB breakpoints */
-PERLVARI(G, breakpointslen, size_t, 0)
-PERLVARI(G, breakpointseq, size_t, 0)