From 7249b811079cb5b2c2c051f1b10bae2f4e2ca02b Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 27 Jun 2019 09:49:33 -0600 Subject: [PATCH] regcomp.c: After AvARRAY(), don't use av_store We are manimpulating the array directly here, so don't revert to going through the regular interface, as not all the hand-offs have been done --- regcomp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/regcomp.c b/regcomp.c index ea617db..8a6ea89 100644 --- a/regcomp.c +++ b/regcomp.c @@ -19763,7 +19763,7 @@ Perl__get_regclass_nonbitmap_data(pTHX_ const regexp *prog, STATIC_ASSERT_STMT(ONLY_LOCALE_MATCHES_INDEX == 1 + INVLIST_INDEX); STATIC_ASSERT_STMT(DEFERRED_USER_DEFINED_INDEX == 1 + ONLY_LOCALE_MATCHES_INDEX); - av_store(av, INVLIST_INDEX, invlist); + ary[INVLIST_INDEX] = invlist; av_fill(av, (ary[ONLY_LOCALE_MATCHES_INDEX]) ? ONLY_LOCALE_MATCHES_INDEX : INVLIST_INDEX); -- 1.8.3.1