summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-10-31 20:46:02 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-10-31 20:46:02 +0000
commit18708f5a7334d978ddf7562cb7f58e28bec6e4ed (patch)
treefd546b7856fc3ed473e57722637cfad50805da86 /objXSUB.h
parent539a3d6c530ba5e4a9bb32654bf5f07b038a4434 (diff)
downloadperl-18708f5a7334d978ddf7562cb7f58e28bec6e4ed.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 'objXSUB.h')
-rw-r--r--objXSUB.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 735ca0a44a..7b3a0a064d 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -48,6 +48,8 @@
#define PL_archpat_auto (*Perl_Iarchpat_auto_ptr(aTHXo))
#undef PL_argvgv
#define PL_argvgv (*Perl_Iargvgv_ptr(aTHXo))
+#undef PL_argvout_stack
+#define PL_argvout_stack (*Perl_Iargvout_stack_ptr(aTHXo))
#undef PL_argvoutgv
#define PL_argvoutgv (*Perl_Iargvoutgv_ptr(aTHXo))
#undef PL_basetime