From: Yitzchak Scott-Thoennes Date: Tue, 25 May 2004 02:29:37 +0000 (-0700) Subject: correctly handle C<< >> and C<<< >>> in diagnostics X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67612b68d268bf70c06222713c2d5b796631c17e;p=p5sagit%2Fp5-mst-13.2.git correctly handle C<< >> and C<<< >>> in diagnostics Message-ID: <20040525092937.GA2332@efn.org> p4raw-id: //depot/perl@22848 --- diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 7445aad..26ff013 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -314,10 +314,10 @@ my %msg; sub noop { return $_[0] } # spensive for a noop sub bold { my $str =$_[0]; $str =~ s/(.)/$1\b$1/g; return $str; } sub italic { my $str = $_[0]; $str =~ s/(.)/_\b$1/g; return $str; } - s/[BC]<(.*?)>/bold($1)/ges; + s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/bold($+)/ges; s/[LIF]<(.*?)>/italic($1)/ges; } else { - s/[BC]<(.*?)>/$1/gs; + s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/$+/gs; s/[LIF]<(.*?)>/$1/gs; } unless (/^=/) {