$ git diff diff --git a/lib/URI/Heuristic.pm b/lib/URI/Heuristic.pm index 1780f34..4694813 100644 --- a/lib/URI/Heuristic.pm +++ b/lib/URI/Heuristic.pm @@ -155,7 +155,7 @@ sub uf_uristr ($) if (/^(www|web|home)[a-z0-9-]*(?:\.|$)/i) { $_ = "http://$_"; - } elsif (/^(ftp|gopher|news|wais|https|http)[a-z0-9-]*(?:\.|$)/i) { + } elsif (/^(ftp|gemini|gopher|news|wais|https|http)[a-z0-9-]*(?:\.|$)/i) { $_ = lc($1) . "://$_"; } elsif ($^O ne "MacOS" && @@ -168,7 +168,7 @@ sub uf_uristr ($) } elsif ($^O eq "MacOS" && m/:/) { # potential MacOS file name - unless (m/^(ftp|gopher|news|wais|http|https|mailto):/) { + unless (m/^(ftp|gemini|gopher|news|wais|http|https|mailto):/) { require URI::file; my $a = URI::file->new($_)->as_string; $_ = ($a =~ m/^file:/) ? $a : "file:$a";