diff options
| author | Marc Green <marcgreen@wpi.edu> | 2012-01-24 21:20:55 -0500 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2012-02-06 21:21:17 -0500 |
| commit | 89f9000b0f2a74d3277d9f4fe0e81e234aabf7c7 (patch) | |
| tree | fb204615182db86a43cc0fa9a87f162a27ee39f6 /ext/Pod-Html | |
| parent | 3fabeba8637b623eb41bd2a3d33d317eba3000ce (diff) | |
| download | perl-89f9000b0f2a74d3277d9f4fe0e81e234aabf7c7.tar.gz | |
Fix portability issue with Pod::Html test case
Diffstat (limited to 'ext/Pod-Html')
| -rw-r--r-- | ext/Pod-Html/t/cache.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Pod-Html/t/cache.t b/ext/Pod-Html/t/cache.t index 3c4734a2dc..f38de45fa1 100644 --- a/ext/Pod-Html/t/cache.t +++ b/ext/Pod-Html/t/cache.t @@ -11,7 +11,6 @@ use strict; use Cwd; use Pod::Html; use Data::Dumper; -use File::Spec; use Test::More tests => 10; my $cwd = Cwd::cwd(); @@ -59,7 +58,8 @@ while (<$cache>) { } chdir("t"); my %expected_pages = - map { my $f = substr($_, 0, -4); $f => File::Spec->catfile($cwd,'t',$f) } + # chop off the .pod and set the path + map { my $f = substr($_, 0, -4); $f => "$cwd/t/$f" } <*.pod>; chdir($cwd); is_deeply(\%pages, \%expected_pages, "cache contents"); |