This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Purge remaining references to PerlIO_sprintf and PerlIO_vsprintf().
[perl5.git]
/
perlvars.h
diff --git
a/perlvars.h
b/perlvars.h
index
f8bb821
..
aa724e8
100644
(file)
--- a/
perlvars.h
+++ b/
perlvars.h
@@
-32,7
+32,7
@@
all interpreters and all threads in a process.
#if defined(USE_ITHREADS)
PERLVAR(G, op_mutex, perl_mutex) /* Mutex for op refcounting */
#endif
#if defined(USE_ITHREADS)
PERLVAR(G, op_mutex, perl_mutex) /* Mutex for op refcounting */
#endif
-PERLVAR
(G, curinterp, PerlInterpreter *
)
+PERLVAR
I(G, curinterp, PerlInterpreter *, NULL
)
/* currently running interpreter
* (initial parent interpreter under
* useithreads) */
/* currently running interpreter
* (initial parent interpreter under
* useithreads) */
@@
-217,7
+217,7
@@
the Perl core) will normally return C<KEYWORD_PLUGIN_DECLINE>.
PERLVARI(G, keyword_plugin, Perl_keyword_plugin_t, Perl_keyword_plugin_standard)
PERLVARI(G, keyword_plugin, Perl_keyword_plugin_t, Perl_keyword_plugin_standard)
-PERLVAR
(G, op_sequence, HV *)
/* dump.c */
+PERLVAR
I(G, op_sequence, HV *, NULL)
/* dump.c */
PERLVARI(G, op_seq, UV, 0) /* dump.c */
#ifdef USE_ITHREADS
PERLVARI(G, op_seq, UV, 0) /* dump.c */
#ifdef USE_ITHREADS
@@
-225,7
+225,10
@@
PERLVAR(G, dollarzero_mutex, perl_mutex) /* Modifying $0 */
#endif
/* Restricted hashes placeholder value.
#endif
/* Restricted hashes placeholder value.
- * The contents are never used, only the address. */
+ In theory, the contents are never used, only the address.
+ In practice, &PL_sv_placeholder is returned by some APIs, and the calling
+ code is checking SvOK(). */
+
PERLVAR(G, sv_placeholder, SV)
#if defined(MYMALLOC) && defined(USE_ITHREADS)
PERLVAR(G, sv_placeholder, SV)
#if defined(MYMALLOC) && defined(USE_ITHREADS)
@@
-233,4
+236,4
@@
PERLVAR(G, malloc_mutex, perl_mutex) /* Mutex for malloc */
#endif
PERLVARI(G, hash_seed_set, bool, FALSE) /* perl.c */
#endif
PERLVARI(G, hash_seed_set, bool, FALSE) /* perl.c */
-PERLVARA(G, hash_seed, PERL_HASH_SEED_BYTES, unsigned char) /* and hv.h */
+PERLVARA(G, hash_seed, PERL_HASH_SEED_BYTES, unsigned char) /*
perl.c
and hv.h */