escape # for usage in urls

arcanez · May 27, 2009 · e32e11f · e32e11f
1 parent 35842bc
commit e32e11f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Angerwhale/Format/HTML.pm b/lib/Angerwhale/Format/HTML.pm
@@ -213,8 +213,7 @@ sub _parse {
                     $scheme = 'http';
                 }
 
-                if (   $scheme !~ /^(http|ftp|mailto)$/
+                if (   $scheme !~ /^(http|ftp|mailto)$/ ) 
-                    || $uri->as_string =~ /#/ )
                 {
                     $result .= $self->_parse(@kids);    # not a link.
                 }
@@ -342,6 +341,7 @@ sub _escape {
     $text =~ s/>/&gt;/g;
     $text =~ s/"/&quot;/g;
     $text =~ s/'/&apos;/g;
+    $text =~ s/#/&#35;/g;
     return $text;
 }