X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fpsgi_file_testapp.t;h=14e25fb9751a65329cc54936e405f2d6e906bd39;hp=8fd6582f4d9ee3bd51c2e8d4db33439b2e16552b;hb=0df490ef10f0a2deaa3b7950e721fa44659de860;hpb=996db8edfb44050900dfc4ba534f24540c429c90

diff --git a/t/psgi_file_testapp.t b/t/psgi_file_testapp.t
index 8fd6582..14e25fb 100644
--- a/t/psgi_file_testapp.t
+++ b/t/psgi_file_testapp.t
@@ -14,13 +14,13 @@ 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;
 
         $main::have_loaded_psgi = 1;
-        my $app = sub { TestApp->psgi_app };
+        my $app = TestApp->psgi_app;
     };
     close($psgi);
 }