Enable hooking parameters into req/res construction. Useful if you are dynamically...

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

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