diff options
-rw-r--r-- | Bugzilla/Markdown.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Bugzilla/Markdown.pm b/Bugzilla/Markdown.pm index c5a34fb6e..6cbe0f6c4 100644 --- a/Bugzilla/Markdown.pm +++ b/Bugzilla/Markdown.pm @@ -47,6 +47,7 @@ our %g_escape_table; foreach my $char (split //, '\\`*_{}[]()>#+-.!~') { $g_escape_table{$char} = md5_hex($char); } +$g_escape_table{'<'} = md5_hex('<'); sub new { my $invocant = shift; @@ -149,7 +150,7 @@ sub _StripLinkDefinitions { sub _DoAutoLinks { my ($self, $text) = @_; - $text =~ s{(?:<|<)((?:https?|ftp):[^'">\s]+)(?:>|>)}{<a href="$1">$1</a>}gi; + $text =~ s{(?:<|<)((?:https?|ftp):[^'">\s]+?)(?:>|>)}{<a href="$1">$1</a>}gi; return $text; } @@ -406,8 +407,11 @@ sub _EncodeCode { # In other words, html_quote() will change '>' to '&gt;' and then we will # change '&gt' -> '>' -> '>' if we write this substitution as the first one. $text =~ s/&/&/g; + $text =~ s{<a \s+ href="(?:mailto:)? (.+?)"> \1 </a>}{$1}xmgi; $text = $self->SUPER::_EncodeCode($text); $text =~ s/~/$g_escape_table{'~'}/go; + # Encode '<' to prevent URLs from getting linkified in code spans + $text =~ s/</$g_escape_table{'<'}/go; return $text; } @@ -426,6 +430,7 @@ sub _UnescapeSpecialChars { $text = $self->SUPER::_UnescapeSpecialChars($text); $text =~ s/$g_escape_table{'~'}/~/go; + $text =~ s/$g_escape_table{'<'}/</go; return $text; } |