You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2010/12/29 22:28:57 UTC
[lucy-commits] svn commit: r1053748 - /incubator/lucy/trunk/perl/xs/XSBind.c
Author: marvin
Date: Wed Dec 29 21:28:57 2010
New Revision: 1053748
URL: http://svn.apache.org/viewvc?rev=1053748&view=rev
Log:
Switch out HeUTF8, which is only available from Perl 5.10.1 forward, for
HeKUTF8, which is available back to at least 5.8.3, the earliest version we
support.
Modified:
incubator/lucy/trunk/perl/xs/XSBind.c
Modified: incubator/lucy/trunk/perl/xs/XSBind.c
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/xs/XSBind.c?rev=1053748&r1=1053747&r2=1053748&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/xs/XSBind.c (original)
+++ incubator/lucy/trunk/perl/xs/XSBind.c Wed Dec 29 21:28:57 2010
@@ -250,7 +250,7 @@ S_perl_hash_to_cfish_hash(HV *phash)
Cfish_ZCB_Assign_Trusted_Str(key, key_str, key_len);
Cfish_Hash_Store(retval, (cfish_Obj*)key, value);
}
- else if (HeUTF8(entry)) {
+ else if (HeKUTF8(entry)) {
Cfish_ZCB_Assign_Trusted_Str(key, HeKEY(entry), key_len);
Cfish_Hash_Store(retval, (cfish_Obj*)key, value);
}