diff options
| author | Matthew Horsfall (alh) <wolfsage@gmail.com> | 2011-08-22 21:26:26 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-22 23:39:58 -0700 |
| commit | 524e918826a7e5c1e42dc42a70614584081e8300 (patch) | |
| tree | 76a3d5d4a0d32ebeaf71a723435b81d9fced784c /lib/diagnostics.pm | |
| parent | d93f0209d1eb23b074952eedc905b475e18f4035 (diff) | |
| download | perl-524e918826a7e5c1e42dc42a70614584081e8300.tar.gz | |
Strip S<> formatting codes from diagnostics output
Update spacing
Don't break S<20 questions> across lines, update test to be accurate
Diffstat (limited to 'lib/diagnostics.pm')
| -rw-r--r-- | lib/diagnostics.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 7079d2508f..a40da9ea14 100644 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -185,7 +185,7 @@ use 5.009001; use Carp; $Carp::Internal{__PACKAGE__.""}++; -our $VERSION = '1.24'; +our $VERSION = '1.25'; our $DEBUG; our $VERBOSE; our $PRETTY; @@ -344,6 +344,9 @@ my %msg; ? italic($sect) . ' in ' . italic($page) : italic($page) /ges; + s/S<(.*?)>/ + $1 + /ges; } else { s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/$+/gs; s/[IF]<(.*?)>/$1/gs; @@ -355,6 +358,9 @@ my %msg; ? qq '"$sect" in $page' : $page /ges; + s/S<(.*?)>/ + $1 + /ges; } unless (/^=/) { if (defined $header) { |