diff options
-rw-r--r-- | ext/Pod-Html/t/cache.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/Pod-Html/t/cache.t b/ext/Pod-Html/t/cache.t index 5a8e1fef1f..3a48a3cb23 100644 --- a/ext/Pod-Html/t/cache.t +++ b/ext/Pod-Html/t/cache.t @@ -13,7 +13,7 @@ use Pod::Html; use Data::Dumper; use Test::More tests => 10; -my $cwd = Cwd::cwd(); +my $cwd = Pod::Html::_unixify(Cwd::cwd()); my $infile = "t/cache.pod"; my $outfile = "cacheout.html"; my $cachefile = "pod2htmd.tmp"; @@ -65,7 +65,8 @@ chdir($cwd); is_deeply(\%pages, \%expected_pages, "cache contents"); close $cache; -unlink $outfile; -unlink $cachefile, $tcachefile; +1 while unlink $outfile; +1 while unlink $cachefile; +1 while unlink $tcachefile; is(-f $cachefile, undef, "No cache file to end"); is(-f $tcachefile, undef, "No cache file to end"); |