diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-07-11 19:16:55 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-07-16 13:58:09 -0600 |
commit | 35e47f8f3db9920ffde3be36c5786bba8f0cbd8e (patch) | |
tree | 404949485512b769d3fd6836911926d8069ea156 | |
parent | d361b00481905de183664c6b0d414fd509a0e68f (diff) | |
download | perl-35e47f8f3db9920ffde3be36c5786bba8f0cbd8e.tar.gz |
regcomp.c: Only White-space, comments, name of variable change
-rw-r--r-- | regcomp.c | 11 |
1 files changed, 5 insertions, 6 deletions
@@ -7307,7 +7307,6 @@ S_invlist_trim(pTHX_ SV* const invlist) /* Change the length of the inversion list to how many entries it currently * has */ - SvPV_shrink_to_cur((SV *) invlist); } @@ -7367,8 +7366,8 @@ S__append_range_to_invlist(pTHX_ SV* const invlist, const UV start, const UV end len += 2; /* Includes an element each for the start and end of range */ - /* If overflows the existing space, extend, which may cause the array to be - * moved */ + /* If wll overflow the existing space, extend, which may cause the array to + * be moved */ if (max < len) { invlist_extend(invlist, len); invlist_set_len(invlist, len); /* Have to set len here to avoid assert @@ -8145,15 +8144,15 @@ S_invlist_clone(pTHX_ SV* const invlist) /* Need to allocate extra space to accommodate Perl's addition of a * trailing NUL to SvPV's, since it thinks they are always strings */ SV* new_invlist = _new_invlist(_invlist_len(invlist) + 1); - STRLEN length = SvCUR(invlist); + STRLEN physical_length = SvCUR(invlist); PERL_ARGS_ASSERT_INVLIST_CLONE; - SvCUR_set(new_invlist, length); /* This isn't done automatically */ + SvCUR_set(new_invlist, physical_length); /* This isn't done automatically */ invlist_set_len(new_invlist, _invlist_len(invlist)); *(get_invlist_offset_addr(new_invlist)) = *(get_invlist_offset_addr(invlist)); - Copy(SvPVX(invlist), SvPVX(new_invlist), length, char); + Copy(SvPVX(invlist), SvPVX(new_invlist), physical_length, char); return new_invlist; } |