Remove PERL_CORE boilerplate from IO::Zlib's tests.
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Sep 2009 16:36:31 +0000 (17:36 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 4 Sep 2009 16:36:31 +0000 (17:36 +0100)
(Without this they don't pass in their new location in ext.)

ext/IO-Zlib/t/basic.t
ext/IO-Zlib/t/external.t
ext/IO-Zlib/t/getc.t
ext/IO-Zlib/t/getline.t
ext/IO-Zlib/t/import.t
ext/IO-Zlib/t/large.t
ext/IO-Zlib/t/tied.t
ext/IO-Zlib/t/uncomp1.t
ext/IO-Zlib/t/uncomp2.t

index fc8da72..80aed9c 100644 (file)
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
 use IO::Zlib;
 
 sub ok
index 765c549..1d90d7f 100644 (file)
@@ -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.
 # 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.
index a3030c7..2424d5b 100644 (file)
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
 use IO::Zlib;
 
 sub ok
index 237160b..fed17da 100644 (file)
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
 use IO::Zlib;
 
 sub ok
index 3cbaa61..336d80a 100644 (file)
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 print "1..1\n";
 
 sub ok
 print "1..1\n";
 
 sub ok
index ef5d164..0203182 100644 (file)
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
 use IO::Zlib;
 
 sub ok
index b6eebe6..029b282 100644 (file)
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
 use IO::Zlib;
 
 sub ok
index 3f19805..884af47 100644 (file)
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-       @INC = '../lib';
-       chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
 use IO::Zlib;
 
 sub ok
index c9057ae..e760fde 100644 (file)
@@ -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
 require IO::Zlib; # uncomp2.t is like uncomp1.t but without 'use'
 
 sub ok