diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 06:46:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 06:46:38 +0000 |
| commit | 709f4e3886da946826dd2f058dc3074704070f32 (patch) | |
| tree | ea3239c9276063218cba12d8eb0bc5e07a28ac4f | |
| parent | 3ab837902b90d68d5480fcce2f829ca8ed139e0d (diff) | |
| download | perl-709f4e3886da946826dd2f058dc3074704070f32.tar.gz | |
add a few more globals with old names #defined
p4raw-id: //depot/perl@1625
| -rwxr-xr-x | embed.pl | 7 | ||||
| -rw-r--r-- | embedvar.h | 3 |
2 files changed, 10 insertions, 0 deletions
@@ -2,6 +2,10 @@ require 5.003; +# XXX others that may need adding +# warnhook +# hints +# copline my @extvars = qw(sv_undef sv_yes sv_no na dowarn curcop compiling tainting tainted stack_base stack_sp sv_arenaroot @@ -12,6 +16,9 @@ my @extvars = qw(sv_undef sv_yes sv_no na dowarn errgv rsfp_filters perldb + diehook + dirty + perl_destruct_level ); sub readsyms (\%$) { diff --git a/embedvar.h b/embedvar.h index 8394e84000..7a258b0cce 100644 --- a/embedvar.h +++ b/embedvar.h @@ -869,9 +869,12 @@ #define curstash PL_curstash #define debstash PL_debstash #define defgv PL_defgv +#define diehook PL_diehook +#define dirty PL_dirty #define dowarn PL_dowarn #define errgv PL_errgv #define na PL_na +#define perl_destruct_level PL_perl_destruct_level #define perldb PL_perldb #define rsfp PL_rsfp #define rsfp_filters PL_rsfp_filters |