summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorRobin Houston <robin@cpan.org>2001-04-06 19:10:14 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2001-04-07 17:29:47 +0000
commitb0840a2a4e2429536ffb069928546c0cd4916ac8 (patch)
tree067a493616b7c4f305697652a77c35578aa784b6 /op.c
parent59bb58455c306b86a68fba97f3fcce0a1f372a01 (diff)
downloadperl-b0840a2a4e2429536ffb069928546c0cd4916ac8.tar.gz
PATCH: $[
Message-ID: <20010406181014.A18803@puffinry.freeserve.co.uk> p4raw-id: //depot/perl@9614
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 11cd640947..aa0b1e78ea 100644
--- a/op.c
+++ b/op.c
@@ -6818,7 +6818,7 @@ Perl_peep(pTHX_ register OP *o)
pop->op_next->op_type == OP_AELEM &&
!(pop->op_next->op_private &
(OPpLVAL_INTRO|OPpLVAL_DEFER|OPpDEREF|OPpMAYBE_LVSUB)) &&
- (i = SvIV(((SVOP*)pop)->op_sv) - PL_compiling.cop_arybase)
+ (i = SvIV(((SVOP*)pop)->op_sv) - PL_curcop->cop_arybase)
<= 255 &&
i >= 0)
{