From: Graham Knop <haarg@haarg.org>
Date: Sun, 26 Jul 2020 21:49:51 +0000 (+0200)
Subject: avoid using deprecated subs in threads test
X-Git-Tag: v5.90_127~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=4e45fa288ea80bf2a4587dd2278c784286aafdc3;hp=e91462552b2ba10034c82a4c981fe63dfeb57a6e

avoid using deprecated subs in threads test
---

diff --git a/t/optional_threads.t b/t/optional_threads.t
index b0a05c9..3d7dd8a 100644
--- 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
 {