This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Replace code with fcn that does the same thing
[perl5.git] / regcomp.c
index 31fc6b4..ca0c7af 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8770,7 +8770,7 @@ Perl__new_invlist(pTHX_ IV initial_size)
     invlist_set_len(new_list, 0, 0);
 
     /* Force iterinit() to be used to get iteration to work */
-    *get_invlist_iter_addr(new_list) = (STRLEN) UV_MAX;
+    invlist_iterfinish(new_list);
 
     *get_invlist_previous_index_addr(new_list) = 0;