diff options
| author | Tony Cook <tony@develop-help.com> | 2020-01-28 11:19:41 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2020-01-28 11:21:47 +1100 |
| commit | bb84ab0e628823dd987990df941b347d0aa7875c (patch) | |
| tree | e7506cd9f598639075c84a2518c40168268892d5 | |
| parent | d056cb552f4d91a9a4f960724f15f2acf55eca46 (diff) | |
| download | perl-bb84ab0e628823dd987990df941b347d0aa7875c.tar.gz | |
add support for E<sol> and E<verbar> to diagnostics.pm
perlpod says:
* "E<lt>" -- a literal < (less than)
* "E<gt>" -- a literal > (greater than)
* "E<verbar>" -- a literal | (*ver*tical *bar*)
* "E<sol>" -- a literal / (*sol*idus)
The above four are optional except in other formatting codes,
notably "L<...>", and when preceded by a capital letter.
so those two were the only ones missing from diagnostics.pm's
escape translation tables.
| -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 860a0aa846..a9de570ada 100644 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -186,7 +186,7 @@ use 5.009001; use Carp; $Carp::Internal{__PACKAGE__.""}++; -our $VERSION = '1.36'; +our $VERSION = '1.37'; our $DEBUG; our $VERBOSE; our $PRETTY; @@ -265,6 +265,8 @@ if (eof(POD_DIAG)) { 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote + 'sol' => '/', # forward slash / solidus + 'verbar' => '|', # vertical bar "Aacute" => "A\\*'", # capital A, acute accent # etc @@ -276,6 +278,8 @@ if (eof(POD_DIAG)) { 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote + 'sol' => '/', # Forward slash / solidus + 'verbar' => '|', # vertical bar "Aacute" => "\xC1" # capital A, acute accent @@ -287,6 +291,8 @@ if (eof(POD_DIAG)) { 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote + 'sol' => '/', # Forward slash / solidus + 'verbar' => '|', # vertical bar "Aacute" => "A" # capital A, acute accent # etc |