From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Jul 2003 04:26:58 +0000 (+0000)
Subject: Revert 20233 + s/GvAVn/GvAV/) + rerun 'perl bytecode.pl'.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ac16f7c8e031d5a1619f0d322af0b1a02906b5d;p=p5sagit%2Fp5-mst-13.2.git

Revert 20233 + s/GvAVn/GvAV/) + rerun 'perl bytecode.pl'.
(from Enache)

p4raw-id: //depot/perl@20246
---

diff --git a/bytecode.pl b/bytecode.pl
index 1f30d9b..d4b40fb 100644
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -486,7 +486,7 @@ push_end	PL_endav				svindex		x
 curstash	*(SV**)&PL_curstash			svindex
 defstash	*(SV**)&PL_defstash			svindex
 data		none					U8		x
-incav		*(SV**)&PL_incgv			svindex
+incav		*(SV**)&GvAV(PL_incgv)			svindex
 load_glob	none					svindex		x
 #ifdef USE_ITHREADS
 regex_padav	*(SV**)&PL_regex_padav			svindex
diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index b29549e..636c206 100644
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -1067,7 +1067,7 @@ byterun(pTHX_ register struct byteloader_state *bstate)
 	    {
 		svindex arg;
 		BGET_svindex(arg);
-		*(SV**)&PL_incgv = arg;
+		*(SV**)&GvAV(PL_incgv) = arg;
 		break;
 	    }
 	  case INSN_LOAD_GLOB:		/* 144 */