From: Andy Grundman <andy@hybridized.org>
Date: Thu, 15 Sep 2005 16:00:56 +0000 (+0000)
Subject: Backported [1134] SSL requests in tests to trunk
X-Git-Tag: 5.7099_04~1242
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=f829e6ccdcc4716f6952ae91680241ff0213b79a

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
--- 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