Remove PERL_CORE boilerplate from IO::Zlib's tests.

(Without this they don't pass in their new location in ext.)

diff --git a/ext/IO-Zlib/t/basic.t b/ext/IO-Zlib/t/basic.t
index fc8da72..80aed9c 100644 (file)
--- a/ext/IO-Zlib/t/basic.t
+++ b/ext/IO-Zlib/t/basic.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok

diff --git a/ext/IO-Zlib/t/external.t b/ext/IO-Zlib/t/external.t
index 765c549..1d90d7f 100644 (file)
--- a/ext/IO-Zlib/t/external.t
+++ b/ext/IO-Zlib/t/external.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 # Test this only iff we have an executable /usr/bin/gzip
 # AND we have /usr/bin in our PATH
 # AND we have a useable /usr/bin directory.

diff --git a/ext/IO-Zlib/t/getc.t b/ext/IO-Zlib/t/getc.t
index a3030c7..2424d5b 100644 (file)
--- a/ext/IO-Zlib/t/getc.t
+++ b/ext/IO-Zlib/t/getc.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok

diff --git a/ext/IO-Zlib/t/getline.t b/ext/IO-Zlib/t/getline.t
index 237160b..fed17da 100644 (file)
--- a/ext/IO-Zlib/t/getline.t
+++ b/ext/IO-Zlib/t/getline.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok

diff --git a/ext/IO-Zlib/t/import.t b/ext/IO-Zlib/t/import.t
index 3cbaa61..336d80a 100644 (file)
--- a/ext/IO-Zlib/t/import.t
+++ b/ext/IO-Zlib/t/import.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 print "1..1\n";
 
 sub ok

diff --git a/ext/IO-Zlib/t/large.t b/ext/IO-Zlib/t/large.t
index ef5d164..0203182 100644 (file)
--- a/ext/IO-Zlib/t/large.t
+++ b/ext/IO-Zlib/t/large.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok

diff --git a/ext/IO-Zlib/t/tied.t b/ext/IO-Zlib/t/tied.t
index b6eebe6..029b282 100644 (file)
--- a/ext/IO-Zlib/t/tied.t
+++ b/ext/IO-Zlib/t/tied.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok

diff --git a/ext/IO-Zlib/t/uncomp1.t b/ext/IO-Zlib/t/uncomp1.t
index 3f19805..884af47 100644 (file)
--- a/ext/IO-Zlib/t/uncomp1.t
+++ b/ext/IO-Zlib/t/uncomp1.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok

diff --git a/ext/IO-Zlib/t/uncomp2.t b/ext/IO-Zlib/t/uncomp2.t
index c9057ae..e760fde 100644 (file)
--- a/ext/IO-Zlib/t/uncomp2.t
+++ b/ext/IO-Zlib/t/uncomp2.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 require IO::Zlib; # uncomp2.t is like uncomp1.t but without 'use'
 
 sub ok