avoid using deprecated subs in threads test

diff --git a/t/optional_threads.t b/t/optional_threads.t
index b0a05c9..3d7dd8a 100644 (file)
--- a/t/optional_threads.t
+++ b/t/optional_threads.t
@@ -28,13 +28,14 @@ else {
 }
 
 no warnings 'redefine';
-sub request {
+my $request_code = \&request;
+*request = sub {
     my $thr = threads->new(
-        sub { Catalyst::Test::local_request('TestApp',@_) },
+        sub { $request_code->(@_) },
         @_
     );
     $thr->join;
-}
+};
 
 # test that running inside a thread works ok
 {