summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorYitzchak Scott-Thoennes <sthoenna@efn.org>2002-10-01 02:54:30 -0700
committerhv <hv@crypt.org>2002-10-02 14:15:22 +0000
commitc754c3d7d306f3634bb3500e77dcb37c2c9892e2 (patch)
treeb9522f873e7a752e1def6dbe709b1daf7e1aca2c /pp_hot.c
parentd1573ac7f3669af3adf9935c83633459afbc51af (diff)
downloadperl-c754c3d7d306f3634bb3500e77dcb37c2c9892e2.tar.gz
Re: [perl #17376] Bug Report - our(%)
Message-ID: <GNdm9gzkgWOS092yn@efn.org> p4raw-id: //depot/perl@17963
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index cc301baebf..8d56ada1b0 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -780,7 +780,7 @@ PP(pp_rv2av)
}
SP += maxarg;
}
- else {
+ else if (GIMME_V == G_SCALAR) {
dTARGET;
I32 maxarg = AvFILL(av) + 1;
SETi(maxarg);