From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Apr 2006 17:23:44 +0000 (+0000)
Subject: Dave noticed that change 28022 was wrong - should read is_index
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4e44778093d8ab0f643e5c4d3bbf079882672c3;p=p5sagit%2Fp5-mst-13.2.git

Dave noticed that change 28022 was wrong - should read is_index
rather than just index.

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

diff --git a/pp.c b/pp.c
index 65e1d50..253126d 100644
--- a/pp.c
+++ b/pp.c
@@ -3251,7 +3251,7 @@ PP(pp_index)
 	    SvUTF8_on(big);
 	big_p = SvPVX(big);
     }
-    if (SvGAMAGIC(little) || index && !SvOK(little)) {
+    if (SvGAMAGIC(little) || (is_index && !SvOK(little))) {
 	/* index && SvOK() is a hack. fbm_instr() calls SvPV_const, which will
 	   warn on undef, and we've already triggered a warning with the
 	   SvPV_const some lines above. We can't remove that, as we need to