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 5c76407..d7a30f9 100755 (executable)
--- a/t/lib/english.t
+++ b/t/lib/english.t
@@ -3,7 +3,7 @@
 print "1..16\n";
 
 BEGIN { @INC = '../lib' }
-require English; import English;
+use English;
 
 print $PID == $$ ? "ok 1\n" : "not ok 1\n";
 
@@ -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";