X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FApache.pm;h=fc69b1c2d74220f25aba82de5c74a4286ea0e030;hp=94dacf17c4f775e8ca94bc85ce6ff89a1b521a84;hb=5ae68c0dadf8ba61ab612cde229ef30de9ca911d;hpb=3803e98f718396f93d4ddc246364d342f4debb41 diff --git a/lib/Catalyst/Engine/Apache.pm b/lib/Catalyst/Engine/Apache.pm index 94dacf1..fc69b1c 100644 --- a/lib/Catalyst/Engine/Apache.pm +++ b/lib/Catalyst/Engine/Apache.pm @@ -137,7 +137,7 @@ sub prepare_path { no warnings 'uninitialized'; $c->req->{path} =~ s/^($loc)?\///; my $base = URI->new; - $base->scheme( $c->apache_request->protocol =~ /HTTPS/ ? 'https' : 'http' ); + $base->scheme( $ENV{HTTPS} ? 'https' : 'http' ); $base->host( $c->apache_request->hostname ); $base->port( $c->apache_request->get_server_port ); my $path = $c->apache_request->location;