Add core test boilerplates

(this is not a dual-life module)

1 files changed, 8 insertions, 6 deletions

diff --git a/lib/FileCache/t/04twoarg.t b/lib/FileCache/t/04twoarg.t
index 66da9719a2..40bae6dcbf 100644
--- a/lib/FileCache/t/04twoarg.t
+++ b/lib/FileCache/t/04twoarg.t
@@ -1,12 +1,14 @@
 #!./perl
-BEGIN {
-    use FileCache;
-    chdir 't' if -d 't';
 
-    #For tests within the perl distribution
-    @INC = '../lib' if -d '../lib';
-    END;
+BEGIN {
+   if( $ENV{PERL_CORE} ) {
+        chdir 't' if -d 't';
+        @INC = qw(../lib);
+    }
 }
+
+use FileCache;
+
 END{
   unlink('foo');
 }