X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FHTTP%2FBase.pm;fp=lib%2FCatalyst%2FEngine%2FHTTP%2FBase.pm;h=ba512f13284c6021a6125ec4a9092f5a57406dc5;hb=f829e6ccdcc4716f6952ae91680241ff0213b79a;hp=ec0f2d5f6d786b6696fa81e20dc2f9691b568ae4;hpb=6f2a2de7197da36913c829e5491bd0ddebc5e335;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/HTTP/Base.pm b/lib/Catalyst/Engine/HTTP/Base.pm
index ec0f2d5..ba512f1 100644
--- 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