diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2004-05-24 19:29:37 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-26 08:15:29 +0000 |
| commit | 67612b68d268bf70c06222713c2d5b796631c17e (patch) | |
| tree | 4958285e9c095f96026441880b61ed31af226c32 /lib/diagnostics.pm | |
| parent | d0ea280110c96a9685c411fd79fc90f26d95371e (diff) | |
| download | perl-67612b68d268bf70c06222713c2d5b796631c17e.tar.gz | |
correctly handle C<< >> and C<<< >>> in diagnostics
Message-ID: <20040525092937.GA2332@efn.org>
p4raw-id: //depot/perl@22848
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 7445aade04..26ff013bd6 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 (/^=/) { |