summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-10-13 09:07:05 -0600
committerKarl Williamson <public@khwilliamson.com>2012-10-14 09:03:37 -0600
commit88675427278c9e6329fba9382072cae9dd00c163 (patch)
tree6f2b3286f469ad7e5b65f44c2ad180f37dc445a4 /regexec.c
parente0193e472b025d41438e251be622aad42c9af9cc (diff)
downloadperl-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.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/regexec.c b/regexec.c
index 5adb3058f5..5985491647 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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;
}
}