summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2018-05-24 18:43:27 +0200
committerYorhel <git@yorhel.nl>2018-05-24 18:43:27 +0200
commit700518267f536be9086f46e4921383df25b264cf (patch)
treebc6be0ad9b0a4e6481e1cafc245f3ff0e4121067
parenta1171c294f3ada0ee59b7126aebe0a4872ee3d99 (diff)
Multi::APIDump: Fix boolifycation of "meta" in tags & traits dumps
https://vndb.org/t2520.259
-rw-r--r--lib/Multi/APIDump.pm4
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}||'') ];