summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-05-27 16:45:51 -0600
committerKarl Williamson <public@khwilliamson.com>2011-07-03 14:05:45 -0600
commit6d63a9fbb4876bacc5281c728d04ce09efa52d81 (patch)
tree189c6a4d7412cdc63abb319fc26654eb23704674 /regcomp.c
parenta2995b7fcac3f38f5bf533f24474052ed006fbbf (diff)
downloadperl-6d63a9fbb4876bacc5281c728d04ce09efa52d81.tar.gz
regcomp.c: Remove unneeded temporary
A previous commit changed things so that this is no longer necessary
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/regcomp.c b/regcomp.c
index b256203ae6..9cc4ba3a0b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6339,7 +6339,6 @@ S_add_range_to_invlist(pTHX_ SV* invlist, const UV start, const UV end)
* with just the one range in it */
SV* range_invlist;
- SV* added_invlist;
UV len;
if (invlist == NULL) {
@@ -6364,15 +6363,12 @@ S_add_range_to_invlist(pTHX_ SV* invlist, const UV start, const UV end)
range_invlist = _new_invlist(2);
_append_range_to_invlist(range_invlist, start, end);
- invlist_union(invlist, range_invlist, &added_invlist);
+ invlist_union(invlist, range_invlist, &invlist);
/* The passed in list can be freed, as well as our temporary */
invlist_destroy(range_invlist);
- if (invlist != added_invlist) {
- invlist_destroy(invlist);
- }
- return added_invlist;
+ return invlist;
}
PERL_STATIC_INLINE SV*