From: Max Maischein <corion@corion.net>
Date: Tue, 6 Oct 2009 16:10:42 +0000 (+0200)
Subject: Remove BEGIN{}, use '..', part deux
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85ee66ebc80e705da4ab79eab4c148a1fe932657;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t
index 82be050..9516271 100644
--- 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
--- 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;