This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Dave noticed that change 28022 was wrong - should read is_index
authorNicholas Clark <nick@ccl4.org>
Sun, 30 Apr 2006 17:23:44 +0000 (17:23 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 30 Apr 2006 17:23:44 +0000 (17:23 +0000)
rather than just index.

p4raw-id: //depot/perl@28027

pp.c

diff --git a/pp.c b/pp.c
index 65e1d50..253126d 100644 (file)
--- 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