1 files changed, 4 insertions, 0 deletions
diff --git a/t/SDBM_File.so b/t/SDBM_File.so
new file mode 100755
index 0000000000..ace796d88b
--- /dev/null
+++ b/t/SDBM_File.so
@@ -0,0 +1,4 @@
+#!./perl -Dst
+
+$ref = [[],2,[3,4,5,]];
+print ${$$ref[2]}[2] == 5 ? "ok 16\n" : "not ok 16\n";