Add support for JSON column in column_info()

michal-josef-spacek · michal-josef-spacek · commit 5a47677f76a1 · 2025-04-15T15:37:29.000+02:00
Field storage requirement for JSON column is approximately the same as for a LONGBLOB or LONGTEXT column. It's defined for MySQL database in https://dev.mysql.com/doc/refman/8.4/en/storage-requirements.html#data-types-storage-reqs-json
diff --git a/lib/DBD/MariaDB.pm b/lib/DBD/MariaDB.pm
@@ -399,7 +399,7 @@ sub column_info {
 	  my @type_attr= split / /, $attr||'';
 
   	$info->{DATA_TYPE}= SQL_VARCHAR();
-    if ($basetype =~ /^(char|varchar|\w*text|\w*blob)/)
+    if ($basetype =~ /^(char|varchar|\w*text|\w*blob|json)/)
     {
       $info->{DATA_TYPE}= SQL_CHAR() if $basetype eq 'char';
       if ($type_params[0])
@@ -411,7 +411,7 @@ sub column_info {
         $info->{COLUMN_SIZE} = 65535;
         $info->{COLUMN_SIZE} = 255        if $basetype =~ /^tiny/;
         $info->{COLUMN_SIZE} = 16777215   if $basetype =~ /^medium/;
-        $info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^long/;
+        $info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^(long|json)/;
       }
     }
 	  elsif ($basetype =~ /^(binary|varbinary)/)

Original file line number	Diff line number	Diff line change
`@@ -399,7 +399,7 @@ sub column_info {`
`399`	`399`	`my @type_attr= split / /, $attr\|\|'';`
`400`	`400`
`401`	`401`	`$info->{DATA_TYPE}= SQL_VARCHAR();`
`402`		`- if ($basetype =~ /^(char\|varchar\|\wtext\|\wblob)/)`
	`402`	`+ if ($basetype =~ /^(char\|varchar\|\wtext\|\wblob\|json)/)`
`403`	`403`	`{`
`404`	`404`	`$info->{DATA_TYPE}= SQL_CHAR() if $basetype eq 'char';`
`405`	`405`	`if ($type_params[0])`
`@@ -411,7 +411,7 @@ sub column_info {`
`411`	`411`	`$info->{COLUMN_SIZE} = 65535;`
`412`	`412`	`$info->{COLUMN_SIZE} = 255 if $basetype =~ /^tiny/;`
`413`	`413`	`$info->{COLUMN_SIZE} = 16777215 if $basetype =~ /^medium/;`
`414`		`- $info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^long/;`
	`414`	`+ $info->{COLUMN_SIZE} = 4294967295 if $basetype =~ /^(long\|json)/;`
`415`	`415`	`}`
`416`	`416`	`}`
`417`	`417`	`elsif ($basetype =~ /^(binary\|varbinary)/)`