diff options
| -rw-r--r-- | lib/Multi/APIDump.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Multi/APIDump.pm b/lib/Multi/APIDump.pm index 2ba44156..c84c3d1c 100644 --- a/lib/Multi/APIDump.pm +++ b/lib/Multi/APIDump.pm @@ -31,7 +31,7 @@ sub tags_gen { my @res = $res->rowsAsHashes; for(@res) { $_->{id} *= 1; - $_->{meta} = $_->{meta} ? JSON::XS::true : JSON::XS::false; + $_->{meta} = $_->{meta} eq 't' ? JSON::XS::true : JSON::XS::false; $_->{vns} *= 1; $_->{aliases} = [ split /\$\$\$-\$\$\$/, ($_->{aliases}||'') ]; $_->{parents} = [ map $_*1, split /,/, ($_->{parents}||'') ]; @@ -53,7 +53,7 @@ sub traits_gen { my @res = $res->rowsAsHashes; for(@res) { $_->{id} *= 1; - $_->{meta} = $_->{meta} ? JSON::XS::true : JSON::XS::false; + $_->{meta} = $_->{meta} eq 't' ? JSON::XS::true : JSON::XS::false; $_->{chars} *= 1; $_->{aliases} = [ split /\r?\n/, ($_->{aliases}||'') ]; $_->{parents} = [ map $_*1, split /,/, ($_->{parents}||'') ]; |