This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix portability issue with Pod::Html test case
authorMarc Green <marcgreen@wpi.edu>
Wed, 25 Jan 2012 02:20:55 +0000 (21:20 -0500)
committerRicardo Signes <rjbs@cpan.org>
Tue, 7 Feb 2012 02:21:17 +0000 (21:21 -0500)
ext/Pod-Html/t/cache.t

index 3c4734a..f38de45 100644 (file)
@@ -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");