Merge pull request #712 from bbrtj/master

Avoid try block just for checking $object->isa
plack · Jun 22, 2024 · fa47e35 · fa47e35
2 parents 9bca3c3 + 17b681b
commit fa47e35
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/lib/HTTP/Message/PSGI.pm b/lib/HTTP/Message/PSGI.pm
@@ -8,17 +8,16 @@ use Carp ();
 use HTTP::Status qw(status_message);
 use URI::Escape ();
 use Plack::Util;
-use Try::Tiny;
+use Scalar::Util ();
 
 my $TRUE  = (1 == 1);
 my $FALSE = !$TRUE;
 
 sub req_to_psgi {
     my $req = shift;
 
-    unless (try { $req->isa('HTTP::Request') }) {
-        Carp::croak("Request is not HTTP::Request: $req");
-    }
+    Carp::croak("Request is not HTTP::Request: $req")
+        unless Scalar::Util::blessed $req && $req->isa('HTTP::Request');
 
     # from HTTP::Request::AsCGI
     my $host = $req->header('Host');