This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove BEGIN{}, use '..', part deux
[perl5.git] / t / porting / checkcase.t
index 82be050..9516271 100644 (file)
@@ -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;