Silence some warnings introduced by #33507

[p5sagit/p5-mst-13.2.git] / ext / IO / t / io_tell.t

diff --git a/ext/IO/t/io_tell.t b/ext/IO/t/io_tell.t
index 65c63bd..bdf225d 100755 (executable)
--- a/ext/IO/t/io_tell.t
+++ b/ext/IO/t/io_tell.t
@@ -14,11 +14,9 @@ BEGIN {
 use Config;
 
 BEGIN {
-    if(-d "lib" && -f "TEST") {
-        if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
-           print "1..0\n";
-           exit 0;
-        }
+    if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
+       print "1..0\n";
+       exit 0;
     }
 }