utf8.c: Combine 2 function calls into one
authorKarl Williamson <public@khwilliamson.com>
Mon, 3 Dec 2012 01:48:33 +0000 (18:48 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sun, 9 Dec 2012 16:47:17 +0000 (09:47 -0700)
There is a function that does both these together, more efficiently

utf8.c

index 820fa82..418f0d8 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -4055,8 +4055,7 @@ Perl__swash_to_invlist(pTHX_ SV* const swash)
            _invlist_union(invlist, other, &invlist);
            break;
        case '!':
-           _invlist_invert(other);
-           _invlist_union(invlist, other, &invlist);
+            _invlist_union_maybe_complement_2nd(invlist, other, TRUE, &invlist);
            break;
        case '-':
            _invlist_subtract(invlist, other, &invlist);