This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Rmv now redundant setting
authorKarl Williamson <public@khwilliamson.com>
Fri, 12 Jul 2013 17:30:16 +0000 (11:30 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 16 Jul 2013 19:58:11 +0000 (13:58 -0600)
SvCUR is now properly set in invlist_set_len().  There is no need to do
it outside that function.

regcomp.c

index 61639ce..b4a5f57 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -7265,13 +7265,12 @@ S__new_invlist_C_array(pTHX_ const UV* const list)
 
     SvLEN_set(invlist, 0);  /* Means we own the contents, and the system
                               shouldn't touch it */
-    /* The 'length' passed to us is the physical number of elements in the
-     * inversion list. */
-    SvCUR_set(invlist, TO_INTERNAL_SIZE(length));
 
     *(get_invlist_offset_addr(invlist)) = offset;
 
-    /* But if there is an offset the logical number is one less than that */
+    /* The 'length' passed to us is the physical number of elements in the
+     * inversion list.  But if there is an offset the logical number is one
+     * less than that */
     invlist_set_len(invlist, length  - offset);
 
     invlist_set_previous_index(invlist, 0);