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:
89302fc
)
utf8.c: Call new function invlist_invert_prop()
author
Karl Williamson
<public@khwilliamson.com>
Wed, 28 Sep 2011 15:14:52 +0000
(09:14 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Sat, 1 Oct 2011 15:30:40 +0000
(09:30 -0600)
This new function is now potentially called. However, there is no data file
or other circumstances which currently cause this path to get executed.
utf8.c
patch
|
blob
|
blame
|
history
diff --git
a/utf8.c
b/utf8.c
index
724f184
..
57532cb
100644
(file)
--- a/
utf8.c
+++ b/
utf8.c
@@
-2977,7
+2977,7
@@
Perl__swash_to_invlist(pTHX_ SV* const swash)
/* Invert if the data says it should be */
if (invert_it_svp && SvUV(*invert_it_svp)) {
- _invlist_invert(invlist);
+ _invlist_invert
_prop
(invlist);
}
/* This code is copied from swash_get()