diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-10-13 09:07:05 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-10-14 09:03:37 -0600 |
commit | 88675427278c9e6329fba9382072cae9dd00c163 (patch) | |
tree | 6f2b3286f469ad7e5b65f44c2ad180f37dc445a4 /regexec.c | |
parent | e0193e472b025d41438e251be622aad42c9af9cc (diff) | |
download | perl-88675427278c9e6329fba9382072cae9dd00c163.tar.gz |
regex: Splice out no longer used array element
A recent commit removed all uses of an array element in the middle of an
array. This moves up the elements that followed it.
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -7076,12 +7076,12 @@ S_core_regclass_swash(pTHX_ const regexp *prog, register const regnode* node, bo si = *ary; /* ary[0] = the string to initialize the swash with */ - /* Elements 3 and 4 are either both present or both absent. [3] is - * any inversion list generated at compile time; [4] indicates if + /* Elements 2 and 3 are either both present or both absent. [2] is + * any inversion list generated at compile time; [3] indicates if * that inversion list has any user-defined properties in it. */ - if (av_len(av) >= 3) { - invlist = ary[3]; - if (SvUV(ary[4])) { + if (av_len(av) >= 2) { + invlist = ary[2]; + if (SvUV(ary[3])) { swash_init_flags |= _CORE_SWASH_INIT_USER_DEFINED_PROPERTY; } } |