This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b81740c
)
utf8.c: Combine 2 function calls into one
author
Karl Williamson
<public@khwilliamson.com>
Mon, 3 Dec 2012 01:48:33 +0000
(18:48 -0700)
committer
Karl 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
patch
|
blob
|
blame
|
history
diff --git
a/utf8.c
b/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);