perl 5.0 alpha 5

    
[editor's note: the sparc executables have not been included,
and emacs backup files and other cruft such as patch backup files have
been removed.  This was reconstructed from a tarball found on the
September 1994 InfoMagic CD]

5 files changed, 11 insertions, 3 deletions

diff --git a/t/foo b/t/foo
new file mode 100755
index 0000000000..ace796d88b
--- /dev/null
+++ b/t/foo
@@ -0,0 +1,4 @@
+#!./perl -Dst
+
+$ref = [[],2,[3,4,5,]];
+print ${$$ref[2]}[2] == 5 ? "ok 16\n" : "not ok 16\n";
diff --git a/t/op/magic.t b/t/op/magic.t
index 83420d2aab..3243c625ce 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -4,7 +4,7 @@
 
 $| = 1;		# command buffering
 
-print "1..5\n";
+print "1..6\n";
 
 eval '$ENV{"foo"} = "hi there";';	# check that ENV is inited inside eval
 if (`echo \$foo` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
@@ -40,3 +40,6 @@ END
 @val2 = values(%ENV);
 
 print join(':',@val1) eq join(':',@val2) ? "ok 5\n" : "not ok 5\n";
+
+print @val1 > 1 ? "ok 6\n" : "not ok 6\n";
+
diff --git a/t/op/ref.t b/t/op/ref.t
index b0619cbc2c..ead65b52ef 100755
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -134,7 +134,8 @@ print ref $object2	eq MYHASH  ? "ok 32\n" : "not ok 32\n";
 
 sub mymethod {
     local($THIS, @ARGS) = @_;
-    die "Not a MYHASH" unless ref $THIS eq MYHASH;
+    die 'Got a "' . ref($THIS). '" instead of a MYHASH'
+	unless ref $THIS eq MYHASH;
     print $THIS->{FOO} eq BAR  ? "ok $ARGS[0]\n" : "not ok $ARGS[0]\n";
 }
 
@@ -146,7 +147,7 @@ $string = "ok 34\n";
 $main'anonhash2 = "foo";
 $string = "not ok 34\n";
 
-sub DESTROY {
+DESTROY {
     print $string;
 
     # Test that the object has already been "cursed".
diff --git a/t/op/s.t b/t/op/subst.t
index 0f554b6ee6..0f554b6ee6 100755
--- a/t/op/s.t
+++ b/t/op/subst.t
diff --git a/t/perl5a1.tar b/t/perl5a1.tar
deleted file mode 100644
index 0c0b43ce1b..0000000000
--- a/t/perl5a1.tar
+++ /dev/null