pod_rules.t needs special preamble.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 8 Oct 2014 21:47:20 +0000 (23:47 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 8 Oct 2014 21:47:37 +0000 (23:47 +0200)
t/porting/pod_rules.t

index 780fa38..46a0114 100644 (file)
 # file will probably pass as well.
 
 BEGIN {
-    chdir 't' if -d '../t';
-    unshift @INC, '../lib';
+    # We need to be at the top level dir.
+    if (-f 'test.pl' && -f 'harness') {
+      chdir '..';
+    }
+    @INC = qw(lib .); # Special @INC.
+    require 't/test.pl';
 }
 
 use strict;
-require 't/test.pl';
 
 use Config;
 if ( $Config{usecrosscompile} ) {