perl 5.0 alpha 8

[the last one taken from the September '94 InfoMagic CD; a similar
style of cleanup as the previous commits was performed]

2 files changed, 6 insertions, 2 deletions

diff --git a/t/SDBM_File.so b/t/SDBM_File.so
new file mode 100755
index 0000000000..ace796d88b
--- /dev/null
+++ b/t/SDBM_File.so
@@ -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/lib/english.t b/t/lib/english.t
index bbc0c0c6b7..5c76407357 100755
--- a/t/lib/english.t
+++ b/t/lib/english.t
@@ -8,14 +8,14 @@ require English; import English;
 print $PID == $$ ? "ok 1\n" : "not ok 1\n";
 
 $_ = 1;
-print $MAGIC == $_ ? "ok 2\n" : "not ok 2\n";
+print $ARG == $_ ? "ok 2\n" : "not ok 2\n";
 
 sub foo {
     print $ARG[0] == $_[0] ? "ok 3\n" : "not ok 3\n";
 }
 &foo(1);
 
-$MAGIC = "ok 4\nok 5\nok 6\n";
+$ARG = "ok 4\nok 5\nok 6\n";
 /ok 5\n/;
 print $PREMATCH, $MATCH, $POSTMATCH;