From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 18 Feb 2001 19:44:25 +0000 (+0000)
Subject: Tweak on #8234 (Subject: Re: [PATCH] Warn on use of reference as array elem):
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e35c1634452152a39827656efdfed4d3e0d18c71;p=p5sagit%2Fp5-mst-13.2.git

Tweak on #8234 (Subject: Re: [PATCH] Warn on use of reference as array elem):
don't warn on magical or overloaded things.

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

diff --git a/pp_hot.c b/pp_hot.c
index ad6e333..36f5dbd 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2866,7 +2866,7 @@ PP(pp_aelem)
     U32 defer = (PL_op->op_private & OPpLVAL_DEFER) && (elem > AvFILL(av));
     SV *sv;
 
-    if (SvROK(elemsv) && ckWARN(WARN_MISC))
+    if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC))
 	Perl_warner(aTHX_ WARN_MISC, "Use of reference \"%s\" as array index", SvPV_nolen(elemsv));
     if (elem > 0)
 	elem -= PL_curcop->cop_arybase;