perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 0 insertions, 21 deletions

diff --git a/objtest b/objtest
deleted file mode 100755
index c4e6205bf6..0000000000
--- a/objtest
+++ /dev/null
@@ -1,21 +0,0 @@
-#!./perl
-
-package OBJ;
-
-@ISA = BASEOBJ;
-
-$main'object = bless {FOO => foo, BAR => bar};
-
-package main;
-
-$object->mymethod("BAR");
-
-mymethod $object "FOO";
-
-#&mymethod($object, "BAR");
-
-sub BASEOBJ'mymethod {
-    local $ref = shift;
-    print ref $ref, "\n";
-    print $ref->{shift}, "\n";
-}