diff options
author | Yorhel <git@yorhel.nl> | 2018-05-24 18:43:27 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2018-05-24 18:43:27 +0200 |
commit | 700518267f536be9086f46e4921383df25b264cf (patch) | |
tree | bc6be0ad9b0a4e6481e1cafc245f3ff0e4121067 /lib/Multi | |
parent | a1171c294f3ada0ee59b7126aebe0a4872ee3d99 (diff) |
Multi::APIDump: Fix boolifycation of "meta" in tags & traits dumps
https://vndb.org/t2520.259
Diffstat (limited to 'lib/Multi')
-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}||'') ]; |