Remove BEGIN{}, use '..', part deux

diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t
index 82be050..9516271 100644 (file)
--- a/t/porting/checkcase.t
+++ b/t/porting/checkcase.t
@@ -2,13 +2,6 @@
 # Finds the files that have the same name, case insensitively,
 # in the current directory and its subdirectories
 
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
-
-
-
 use warnings;
 use strict;
 use File::Find;
@@ -21,7 +14,7 @@ find(sub {
           # Assumes that the path separator is exactly one character.
           $name =~ s/^\.\..//;
           push @{$files{lc $name}}, $name;
-        }, '.');
+        }, '..');
 
 my $failed;
 

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index c999caa..0dc5699 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -4,14 +4,6 @@ require './test.pl';
 
 use strict;
 
-# Somewhere we chdir and can't load any more modules...
-BEGIN {
-    if ($^O eq 'MSWin32') {
-        require Win32;
-    };
-    require overload;
-};
-
 {
     package My::Pod::Checker;
     use strict;