We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 2a42f96 + 42519d6 commit c4b53c7Copy full SHA for c4b53c7
lib/MetaCPAN/Web/View/HTML.pm
@@ -98,7 +98,12 @@ Template::Alloy->define_vmethod(
98
Template::Alloy->define_vmethod(
99
'text',
100
decode_punycode => sub {
101
- URI->new(shift)->ihost;
+ my $url_string = shift;
102
+ my $uri = URI->new($url_string);
103
+ if(!$uri->scheme){
104
+ $uri = URI->new("http://$url_string"); # default to http:// if no scheme in original...
105
+ }
106
+ return $uri->ihost;
107
}
108
);
109
0 commit comments