First cut at db/flat text file based descriptions.

git-svn-id: https://crawl-ref.svn.sourceforge.net/svnroot/crawl-ref/trunk@1331 c06c8d41-db1a-0410-9941-cceddc491573

1 files changed, 8 insertions, 0 deletions

diff --git a/crawl-ref/source/util/testdb.pl b/crawl-ref/source/util/testdb.pl
new file mode 100755
index 0000000000..f13385e851
--- /dev/null
+++ b/crawl-ref/source/util/testdb.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use DB_File;
+
+tie %descriptions, 'DB_File', "descriptions.db";
+while (($k, $v) = each %descriptions)
+   { print "$k -> $v\n" }
+
+untie %descriptions ;