1 files changed, 26 insertions, 0 deletions
diff --git a/tiearray b/tiearray
new file mode 100755
index 0000000000..b765a853d5
--- /dev/null
+++ b/tiearray
@@ -0,0 +1,26 @@
+#!./perl
+
+# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
+
+{
+    package Any_DBM_File;
+    @ISA = (NDBM_File, ODBM_File, GDBM_File, SDBM_File, DB_File, DBZ_File);
+}
+{
+    package FAKEARRAY;
+    sub new { print "new @_\n"; bless ['foo'] }
+    sub fetch { print "fetch @_\n"; $_[0]->[$_[1]] }
+    sub store { print "store @_\n"; $_[0]->[$_[1]] = $_[2] }
+    sub DESTROY { print "DESTROY @_\n"; undef @{$_[0]}; }
+}
+
+tie @h, FAKEARRAY, ONE, TWO, THREE;
+
+$h[1] = 'bar';
+$h[2] = 'baz';
+print $h[0], "\n";
+print $h[1], "\n";
+print $h[2], "\n";
+
+untie @h;
+