Tighten array dimensionality checks in Perl -> SQL array conversion.
authorTom Lane <[email protected]>
Sat, 29 Apr 2023 17:06:44 +0000 (13:06 -0400)
committerTom Lane <[email protected]>
Sat, 29 Apr 2023 17:06:44 +0000 (13:06 -0400)
commitf47004add16041a9cbd19aef29775ca4d9d6001e
tree6d65df80239796c8f07654dccfaf030bf38d7ae6
parent81eaaf65e393d03f49a781009fba876f81fe9d0b
Tighten array dimensionality checks in Perl -> SQL array conversion.

plperl_array_to_datum() wasn't sufficiently careful about checking
that nested lists represent a rectangular array structure; it would
accept inputs such as "[1, []]".  This is a bit related to the
PL/Python bug fixed in commit 81eaaf65e, but it doesn't seem to
provide any direct route to a memory stomp.  Instead the likely
failure mode is for makeMdArrayResult to be passed fewer Datums than
the claimed array dimensionality requires, possibly leading to a wild
pointer dereference and SIGSEGV.

Per report from Alexander Lakhin.  It's been broken for a long
time, so back-patch to all supported branches.

Discussion: https://postgr.es/m/5ebae5e4-d401-fadf-8585-ac3eaf53219c@gmail.com
src/pl/plperl/expected/plperl_array.out
src/pl/plperl/plperl.c
src/pl/plperl/sql/plperl_array.sql