@@ -5,13 +5,14 @@ use warnings; use XSLoader; use Digest::MD5 ('md5'); +use Encode; our $VERSION = '2.000_01'; XSLoader::load "RDF::Trine::XS", $VERSION; sub hash { my $value = shift; - my $md5 = md5( $value ); + my $md5 = md5( encode('utf8', $value) ); return _hash( $md5 ); } RDF-Trine-XS/lib/RDF/Trine/XS.pm @@ -1,5 +1,6 @@ -use Test::More tests => 5; +use Test::More tests => 6; +use utf8; use_ok( 'RDF::Trine::XS' ); { @@ -15,6 +16,12 @@ use_ok( 'RDF::Trine::XS' ); } { + my $value = 'L神崎正英<ja>'; + my $hash = RDF::Trine::XS::hash( $value ); + is( $hash, '4303572462241715163', 'unicode literal hash' ); +} + +{ my $value = 'LTom Croucher<en>'; my $hash = RDF::Trine::XS::hash( $value ); is( $hash, '14336915341960534814', 'language-typed literal hash' ); RDF-Trine-XS/t/hash.t f7ae0882ee73901a643b35dae00b4cf6c4966a8a Gregory Williams samofool@tiu.local http://github.com/kasei/perlrdf/commit/e9fe8b3c68b2485ea1dd65a2735684c27a0891ed e9fe8b3c68b2485ea1dd65a2735684c27a0891ed 2008-03-14T13:06:21-07:00 2008-03-14T13:06:21-07:00 - Fixed RDF::Trine::XS to support unicode literals. e117c0b6b982dc29d3513d67779c52741b7274ce Gregory Williams samofool@tiu.local