diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-16 16:51:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-16 16:51:08 +0000 |
| commit | f180df804d1cde858e3e94db2f42efcc697d07d9 (patch) | |
| tree | 57059df321dc566c4fb334953a3265cfeb2f679e /perlapi.h | |
| parent | cc0fca54a8335062a27e12be15bddf587362a0b0 (diff) | |
| download | perl-f180df804d1cde858e3e94db2f42efcc697d07d9.tar.gz | |
introduce illegal symbols into null package so that gv_fetchpv(...,TRUE)
always returns a valid GV even when the symbol is trapped by strictures
(avoids coredumps)
TODO: the C<package;> hack needs similar treatment
p4raw-id: //depot/perl@5908
Diffstat (limited to 'perlapi.h')
| -rw-r--r-- | perlapi.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -382,6 +382,8 @@ START_EXTERN_C #define PL_nthreads (*Perl_Inthreads_ptr(aTHXo)) #undef PL_nthreads_cond #define PL_nthreads_cond (*Perl_Inthreads_cond_ptr(aTHXo)) +#undef PL_nullstash +#define PL_nullstash (*Perl_Inullstash_ptr(aTHXo)) #undef PL_numeric_local #define PL_numeric_local (*Perl_Inumeric_local_ptr(aTHXo)) #undef PL_numeric_name |