From 700518267f536be9086f46e4921383df25b264cf Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Thu, 24 May 2018 18:43:27 +0200
Subject: Multi::APIDump: Fix boolifycation of "meta" in tags & traits dumps

https://vndb.org/t2520.259
---
 lib/Multi/APIDump.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Multi/APIDump.pm')

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}||'') ];
-- 
cgit v1.2.3