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 /embedvar.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 'embedvar.h')
| -rw-r--r-- | embedvar.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index e790976a18..889b4d44f2 100644 --- a/embedvar.h +++ b/embedvar.h @@ -322,6 +322,7 @@ #define PL_nomemok (PERL_GET_INTERP->Inomemok) #define PL_nthreads (PERL_GET_INTERP->Inthreads) #define PL_nthreads_cond (PERL_GET_INTERP->Inthreads_cond) +#define PL_nullstash (PERL_GET_INTERP->Inullstash) #define PL_numeric_local (PERL_GET_INTERP->Inumeric_local) #define PL_numeric_name (PERL_GET_INTERP->Inumeric_name) #define PL_numeric_radix (PERL_GET_INTERP->Inumeric_radix) @@ -586,6 +587,7 @@ #define PL_nomemok (vTHX->Inomemok) #define PL_nthreads (vTHX->Inthreads) #define PL_nthreads_cond (vTHX->Inthreads_cond) +#define PL_nullstash (vTHX->Inullstash) #define PL_numeric_local (vTHX->Inumeric_local) #define PL_numeric_name (vTHX->Inumeric_name) #define PL_numeric_radix (vTHX->Inumeric_radix) @@ -987,6 +989,7 @@ #define PL_nomemok (aTHXo->interp.Inomemok) #define PL_nthreads (aTHXo->interp.Inthreads) #define PL_nthreads_cond (aTHXo->interp.Inthreads_cond) +#define PL_nullstash (aTHXo->interp.Inullstash) #define PL_numeric_local (aTHXo->interp.Inumeric_local) #define PL_numeric_name (aTHXo->interp.Inumeric_name) #define PL_numeric_radix (aTHXo->interp.Inumeric_radix) @@ -1252,6 +1255,7 @@ #define PL_Inomemok PL_nomemok #define PL_Inthreads PL_nthreads #define PL_Inthreads_cond PL_nthreads_cond +#define PL_Inullstash PL_nullstash #define PL_Inumeric_local PL_numeric_local #define PL_Inumeric_name PL_numeric_name #define PL_Inumeric_radix PL_numeric_radix |