lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mar...@apache.org
Subject [lucy-commits] [1/2] git commit: refs/heads/0.3 - LUCY-259 use `to_utf8_lower`.
Date Fri, 19 Jul 2013 21:11:43 GMT
Updated Branches:
  refs/heads/0.3 226b15d77 -> 212a0444c


LUCY-259 use `to_utf8_lower`.

Perl 5.15.6 failed to export `to_utf8_lower`, resulting in LUCY-206.
However, 5.15.6 is a development version of Perl that we no longer need
to worry about.

The patch we used for LUCY-206 causes problems for Perl 5.18.0 when
compiled with -DNO_MATHOMS (which hides obsolete symbols).

To solve the issue for all supported versions of Perl except 5.15.6,
revert to using `to_utf8_lower`.


Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/74cd2c00
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/74cd2c00
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/74cd2c00

Branch: refs/heads/0.3
Commit: 74cd2c00a2c89181d35ab6548136ee95dd398862
Parents: 226b15d
Author: Marvin Humphrey <marvin@rectangular.com>
Authored: Fri Jul 19 14:00:03 2013 -0700
Committer: Marvin Humphrey <marvin@rectangular.com>
Committed: Fri Jul 19 14:00:03 2013 -0700

----------------------------------------------------------------------
 perl/xs/Lucy/Analysis/CaseFolder.c | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy/blob/74cd2c00/perl/xs/Lucy/Analysis/CaseFolder.c
----------------------------------------------------------------------
diff --git a/perl/xs/Lucy/Analysis/CaseFolder.c b/perl/xs/Lucy/Analysis/CaseFolder.c
index 1721826..938c8df 100644
--- a/perl/xs/Lucy/Analysis/CaseFolder.c
+++ b/perl/xs/Lucy/Analysis/CaseFolder.c
@@ -38,12 +38,7 @@ S_lc_to_work_buf(lucy_CaseFolder *self, uint8_t *source, size_t len,
 
     while (source < end) {
         STRLEN buf_utf8_len;
-        #if (PERL_VERSION == 15 && PERL_SUBVERSION >= 6)
-        Perl__to_utf8_lower_flags(aTHX_ source, utf8_buf, &buf_utf8_len,
-                                  0, NULL);
-        #else
-        Perl_to_utf8_lower(aTHX_ source, utf8_buf, &buf_utf8_len);
-        #endif
+        to_utf8_lower(source, utf8_buf, &buf_utf8_len);
 
         // Grow if necessary.
         if (((STRLEN)(*limit - dest)) < buf_utf8_len) {


Mime
View raw message