diff options
| -rw-r--r-- | ext/Cwd/t/cwd.t | 2 | ||||
| -rw-r--r-- | ext/Cwd/t/taint.t | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index 951126f196..816775e6e3 100644 --- a/ext/Cwd/t/cwd.t +++ b/ext/Cwd/t/cwd.t @@ -3,7 +3,7 @@ BEGIN { chdir 't' if -d 't'; if ($ENV{PERL_CORE}) { - unshift @INC, '../lib'; + @INC = '../lib'; } } use Cwd; diff --git a/ext/Cwd/t/taint.t b/ext/Cwd/t/taint.t index 9c6748e63a..be0e374510 100644 --- a/ext/Cwd/t/taint.t +++ b/ext/Cwd/t/taint.t @@ -1,10 +1,13 @@ #!./perl -Tw # Testing Cwd under taint mode. -use Cwd; BEGIN { chdir 't' if -d 't'; + if ($ENV{PERL_CORE}) { + @INC = '../lib'; + } } +use Cwd; use strict; use Test::More tests => 16; |