Fix label on C<for(;;)> statement

[p5sagit/p5-mst-13.2.git] / t / lib / english.t

diff --git a/t/lib/english.t b/t/lib/english.t
index bbc0c0c..d7a30f9 100755 (executable)
--- a/t/lib/english.t
+++ b/t/lib/english.t
@@ -3,19 +3,19 @@
 print "1..16\n";
 
 BEGIN { @INC = '../lib' }
-require English; import English;
+use 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;
 
@@ -29,7 +29,7 @@ $LIST_SEPARATOR = "\n";
 print "@foo";
 undef $OUTPUT_RECORD_SEPARATOR;
 
-eval 'no such function';
+eval 'NO SUCH FUNCTION';
 print "ok 10\n" if $EVAL_ERROR =~ /method/;
 
 print $UID == $< ? "ok 11\n" : "not ok 11\n";