Backported [1134] SSL requests in tests to trunk

diff --git a/lib/Catalyst/Engine/HTTP/Base.pm b/lib/Catalyst/Engine/HTTP/Base.pm
index ec0f2d5..ba512f1 100644 (file)
--- a/lib/Catalyst/Engine/HTTP/Base.pm
+++ b/lib/Catalyst/Engine/HTTP/Base.pm
@@ -75,6 +75,7 @@ sub prepare_connection {
     $c->request->address( $c->http->address );
     $c->request->hostname( $c->http->hostname );
     $c->request->protocol( $c->http->request->protocol );
+    $c->request->secure(1) if ( $c->http->request->uri->port == 443 );
 }
 
 =item $c->prepare_headers