From 4463e46406ac8aeef4cc5317c8befe852a1a84b6 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 22 Jul 2011 16:19:02 +0200 Subject: fix test for port and schene Signed-off-by: franck cuny --- lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'lib/Net') diff --git a/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm b/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm index ffff80b..9ec49a4 100644 --- a/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm +++ b/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm @@ -92,13 +92,18 @@ sub _base_string { my $scheme = $req->scheme; my $port = $req->port; - if ($port == 80 and $scheme eq 'http'){ + if ( $port == 80 && $scheme eq 'http' ) { $port = undef; } - if (defined $scheme && $port == 443 and $scheme eq 'https'){ + if ( defined $port + && defined $scheme + && $port == 443 + && $scheme eq 'https' ) + { $port = undef; } + my $uri = ( $scheme || 'https' ) . "://" . $req->env->{SERVER_NAME} -- cgit v1.2.3