diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-31 20:46:02 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-31 20:46:02 +0000 |
commit | 617fef7b5f1d16be12633d868c4dc2ba70a0baad (patch) | |
tree | fd546b7856fc3ed473e57722637cfad50805da86 /embedvar.h | |
parent | 41d70878831a2bc5ca9d667db3da03184b51a2ec (diff) | |
download | perl-617fef7b5f1d16be12633d868c4dc2ba70a0baad.tar.gz |
make nested ARGV/$^I loops work correctly; fixes several bugs
in the way ARGV state was handled in readline(); writing a
subroutine to do inplace edits is now possible, provided *ARGV,
*ARGVOUT, $^I and $_ are localized where needed
p4raw-id: //depot/perl@4502
Diffstat (limited to 'embedvar.h')
-rw-r--r-- | embedvar.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index 94f93b08ee..37954329dd 100644 --- a/embedvar.h +++ b/embedvar.h @@ -191,6 +191,7 @@ #define PL_an (PERL_GET_INTERP->Ian) #define PL_archpat_auto (PERL_GET_INTERP->Iarchpat_auto) #define PL_argvgv (PERL_GET_INTERP->Iargvgv) +#define PL_argvout_stack (PERL_GET_INTERP->Iargvout_stack) #define PL_argvoutgv (PERL_GET_INTERP->Iargvoutgv) #define PL_basetime (PERL_GET_INTERP->Ibasetime) #define PL_beginav (PERL_GET_INTERP->Ibeginav) @@ -449,6 +450,7 @@ #define PL_an (vTHX->Ian) #define PL_archpat_auto (vTHX->Iarchpat_auto) #define PL_argvgv (vTHX->Iargvgv) +#define PL_argvout_stack (vTHX->Iargvout_stack) #define PL_argvoutgv (vTHX->Iargvoutgv) #define PL_basetime (vTHX->Ibasetime) #define PL_beginav (vTHX->Ibeginav) @@ -709,6 +711,7 @@ #define PL_Ian PL_an #define PL_Iarchpat_auto PL_archpat_auto #define PL_Iargvgv PL_argvgv +#define PL_Iargvout_stack PL_argvout_stack #define PL_Iargvoutgv PL_argvoutgv #define PL_Ibasetime PL_basetime #define PL_Ibeginav PL_beginav |