Corify the Filter::Simple tests.

[perl5.git] / lib / Filter / Simple / t / data.t

diff --git a/lib/Filter/Simple/t/data.t b/lib/Filter/Simple/t/data.t
index 4618e36..8307f04 100644 (file)
--- a/lib/Filter/Simple/t/data.t
+++ b/lib/Filter/Simple/t/data.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+        chdir('t') if -d 't';
+        @INC = qw(lib ../lib);
+    }
+}
+
 use FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
 print "1..6\n";