improve portability of install_extra_target.t

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@13666 50811bd7-b8ce-0310-adc1-d9db26280581
FROGGS · Dec 17, 2009 · 5b8168c · 5b8168c
1 parent bc97db8
commit 5b8168c
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/t/install_extra_target.t b/t/install_extra_target.t
@@ -7,7 +7,7 @@ use MBTest tests => 6;
 
 blib_load('Module::Build');
 
-use File::Spec::Functions qw( catdir );
+use File::Spec::Functions qw( catdir catfile );
 
 my $tmp = MBTest->tmpdir;
 my $output;
@@ -128,8 +128,8 @@ diag "OUTPUT:\n$output" if $error;
 $output = stdout_of sub { $dist->run_build('install') };
 
 $error = 0;
-$error++ unless ok(-e "$installdest/etc/simple/config", "installed etc/config");
-$error++ unless ok(-e "$installdest/shared/simple/data", "installed shared/data");
-$error++ unless ok(-e "$installdest/shared/simple/html/index.html", "installed shared/html");
+$error++ unless ok(-e catfile($installdest, qw/etc simple config/), "installed etc/config");
+$error++ unless ok(-e catfile($installdest, qw/shared simple data/), "installed shared/data");
+$error++ unless ok(-e catfile($installdest, qw/shared simple html index.html/), "installed shared/html");
 diag "OUTPUT:\n$output" if $error;