From: Ivan Kohler <ivan@freeside.biz>
Date: Sat, 30 Jun 2012 07:53:01 +0000 (-0700)
Subject: fix dev operation @ localhost, RT#13852
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=cd3eb95ed1f3dc3e04cfc2b3b405f75b3ab086da

fix dev operation @ localhost, RT#13852
---

diff --git a/rt/lib/RT/Interface/Web.pm b/rt/lib/RT/Interface/Web.pm
index 814a8293f..262aeacde 100644
--- a/rt/lib/RT/Interface/Web.pm
+++ b/rt/lib/RT/Interface/Web.pm
@@ -1251,8 +1251,9 @@ to handle common problems such as localhost vs 127.0.0.1
 =cut
 
 sub _NormalizeHost {
-
-    my $uri= URI->new(shift);
+    my $s = shift;
+    $s = "http://$s" unless $s =~ /^http/i;
+    my $uri= URI->new($s);
     $uri->host('127.0.0.1') if $uri->host eq 'localhost';
 
     return $uri;