diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-30 17:23:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-30 17:23:44 +0000 |
| commit | e4e44778093d8ab0f643e5c4d3bbf079882672c3 (patch) | |
| tree | 91744a8783fde5233569b5334d316bd41ab44dea /pp.c | |
| parent | 7f9dcb269dc64cc7b1ca55e6703c0c441758e7dd (diff) | |
| download | perl-e4e44778093d8ab0f643e5c4d3bbf079882672c3.tar.gz | |
Dave noticed that change 28022 was wrong - should read is_index
rather than just index.
p4raw-id: //depot/perl@28027
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |