Use do block instead of unnamed block in adapt_psgi

Kelp-framework · Oct 10, 2024 · 758e7ea · 758e7ea
1 parent eeb6429
commit 758e7ea
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/Kelp/Util.pm b/lib/Kelp/Util.pm
@@ -138,16 +138,16 @@ sub adapt_psgi
         $path =~ s{^/?}{/};
         $path =~ s{/?$}{$trailing_slash};
 
-        my $result;
-        {
+        my $result = do {
+
             # adjust script and path
             local $env->{SCRIPT_NAME} = $orig_path;
             $env->{SCRIPT_NAME} =~ s{\Q$path\E$}{};
             local $env->{PATH_INFO} = $path;
 
             # run the callback
-            $result = $app->($env);
-        }
+            $app->($env);
+        };
 
         # produce a response
         if (ref $result eq 'ARRAY') {