Fixed up uses of catdir being used to return a file path

[catagits/Catalyst-Runtime.git] / t / psgi_file_testapp.t

diff --git a/t/psgi_file_testapp.t b/t/psgi_file_testapp.t
index ea06d55..14e25fb 100644 (file)
--- a/t/psgi_file_testapp.t
+++ b/t/psgi_file_testapp.t
@@ -14,7 +14,7 @@ BEGIN {
     $temp = tempdir( CLEANUP => 1 );
 
     $ENV{CATALYST_HOME} = $temp;
-    open(my $psgi, '>', File::Spec->catdir($temp, 'testapp.psgi')) or die;
+    open(my $psgi, '>', File::Spec->catfile($temp, 'testapp.psgi')) or die;
     print $psgi q{
         use strict;
         use TestApp;