From 67612b68d268bf70c06222713c2d5b796631c17e Mon Sep 17 00:00:00 2001
From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Mon, 24 May 2004 19:29:37 -0700
Subject: [PATCH] correctly handle C<< >> and C<<< >>> in diagnostics
 Message-ID: <20040525092937.GA2332@efn.org>

p4raw-id: //depot/perl@22848
---
 lib/diagnostics.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 (/^=/) {
-- 
1.8.3.1