Skip to content

Commit

Permalink
Remove tmpdir from search path for test
Browse files Browse the repository at this point in the history
Fixes RT#85529. A file called /tmp/t could cause a test failure, so we
don't look in /tmp any more (or whatever platform-specific tmpdir)
  • Loading branch information
perlpilot committed Jan 20, 2015
1 parent 445fef2 commit 3c8105a
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions t/search.t
Original file line number Diff line number Diff line change
Expand Up @@ -57,9 +57,8 @@ is($full[1], File::Spec->catfile("t","b","file2"),"found file2 [backcompat]");
is($full[0], $compat[0], "backcompat matches normal file2");
is($full[1], $compat[1], "backcompat matches normal file2");

# Search for a directory (curdir first since we expect this to match
# current directory and CPAN testers sets $TMPDIR to the current directory)
setpath( "MYPATH", File::Spec->curdir, File::Spec->tmpdir );
# Search for a directory
setpath( "MYPATH", File::Spec->curdir );
$fullpath = File::SearchPath::searchpath( "t", dir => 1, env => "MYPATH");
is( $fullpath, File::Spec->catdir(File::Spec->curdir, "t"), "Found directory");

Expand Down

0 comments on commit 3c8105a

Please sign in to comment.