@@ -4,7 +4,7 @@ use warnings;
use Locale::PO;
use JSON::Syck;
$JSON::Syck::ImplicitUnicode = 1;
-use IO::All;
+use IO::All -utf8;
use HTML::Entities;
use Encode;
use utf8;
@@ -18,7 +18,7 @@ sub po2json {
for my $msgid (keys %$po_href) {
my ($k, $v) = map {
my $s = $po->dequote($_);
- $s =~ s/(.)/encode_entities($1)/ge;
+ #$s =~ s/(.)/encode_entities($1)/ge;
$s
} ($msgid, $po_href->{$msgid}->{msgstr});
next unless $k && $v;
script/po2json.pl
e7968ba356df97db58a5db449e6bd47046e9b462
Robert Litwiniec
linio@wonder.pl
http://github.com/marcusramberg/mojomojo/commit/cd8a6e493ac08e0635ae1ecda0b6e93aa3df157d
cd8a6e493ac08e0635ae1ecda0b6e93aa3df157d
2009-10-30T02:53:06-07:00
2009-10-30T02:53:06-07:00
script/po2json.pl: do not HTML character entity encoding
0a6fae5919422960b50e61ee94d3f85fc31172a0
Robert Litwiniec
linio@wonder.pl