Convert t/op/anonsub.t to test.pl, strict and warnings.

[perl5.git] / t / io / print.t

diff --git a/t/io/print.t b/t/io/print.t
index d29036b..321eb1e 100644 (file)
--- a/t/io/print.t
+++ b/t/io/print.t
@@ -3,11 +3,12 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
+    eval 'use Errno';
+    die $@ if $@ and !is_miniperl();
 }
 
 use strict 'vars';
-eval 'use Errno';
-die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
 
 print "1..21\n";