path: root/t/SDBM_File.so

#!./perl -Dst

$ref = [[],2,[3,4,5,]];
print ${$$ref[2]}[2] == 5 ? "ok 16\n" : "not ok 16\n";