From e76b691e78e273226cba9284cb8cd22a423319ed Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:23:25 -0500
Subject: bucky2

---
 bucky2/t/poot.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 bucky2/t/poot.pl

(limited to 'bucky2/t/poot.pl')

diff --git a/bucky2/t/poot.pl b/bucky2/t/poot.pl
new file mode 100755
index 0000000..30eefb8
--- /dev/null
+++ b/bucky2/t/poot.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use DB_File;
+
+my %X;
+
+
+tie %X, "DB_File", "gross.db", O_CREAT|O_RDWR, 0666, $DB_HASH ;
+print "one:$X{'fie'}\n";
+
+
+$X{'fie'} = "fum";
+print "two:$X{'fie'}\n";
+
+
-- 
cgit v1.2.3-70-g09d2