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=09fae0efa9261afa06324fae1d14ce751fd6272c;hb=79fb8f95180a06c51de7f0fde227927b5d864a7f;hpb=a056b99b17b2e16c2aba9ca80e6d70300a5cdeda

diff --git a/t/psgi_file_testapp.t b/t/psgi_file_testapp.t
index 09fae0e..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);
 }