1 files changed, 0 insertions, 26 deletions
diff --git a/tiearray b/tiearray
deleted file mode 100755
index b765a853d5..0000000000
--- a/tiearray
+++ /dev/null
@@ -1,26 +0,0 @@
-#!./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;
-