diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-02-14 21:57:58 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-02-14 21:57:58 +0000 |
| commit | 38d111ed3d31ba88924199477d04e44fc3973211 (patch) | |
| tree | e885b5a29f9509b8abcd28631aabefbc92f49981 /cpan/Pod-Escapes | |
| parent | 4620cb61a0e45eedcc231f931cd5e0b4eddf95e0 (diff) | |
| download | perl-38d111ed3d31ba88924199477d04e44fc3973211.tar.gz | |
Update Pod-Escapes to CPAN version 1.06
[DELTA]
1.06 2014-02-14 NEILB
- e2charnum() was using \d but should use [0-9].
RT#70246 report and fix from MARCGREEN
- Added a bunch of pod-related links to SEE ALSO
Diffstat (limited to 'cpan/Pod-Escapes')
| -rw-r--r-- | cpan/Pod-Escapes/lib/Pod/Escapes.pm | 16 | ||||
| -rw-r--r-- | cpan/Pod-Escapes/t/15_name2charnum.t | 6 |
2 files changed, 16 insertions, 6 deletions
diff --git a/cpan/Pod-Escapes/lib/Pod/Escapes.pm b/cpan/Pod-Escapes/lib/Pod/Escapes.pm index e3988a8491..52b52724fc 100644 --- a/cpan/Pod-Escapes/lib/Pod/Escapes.pm +++ b/cpan/Pod-Escapes/lib/Pod/Escapes.pm @@ -17,7 +17,7 @@ use vars qw( require Exporter; @ISA = ('Exporter'); -$VERSION = '1.05'; +$VERSION = '1.06'; @EXPORT_OK = qw( %Code2USASCII %Name2character @@ -90,7 +90,7 @@ sub e2charnum { $in = hex $1; } # else it's decimal, or named - if($in =~ m/^\d+$/s) { + if($in =~ m/^[0-9]+$/s) { return 0 + $in; } else { return $Name2character_number{$in}; # returns undef if unknown @@ -641,11 +641,17 @@ C<chr($Name2character_number{$name})>. =head1 SEE ALSO -L<perlpod|perlpod> +L<Pod::Browser> - a pod web server based on L<Catalyst>. + +L<Pod::Checker> - check pod documents for syntax errors. + +L<Pod::Coverage> - check if the documentation for a module is comprehensive. + +L<perlpod> - description of pod format (for people documenting with pod). -L<perlpodspec|perlpodspec> +L<perlpodspec> - specification of pod format (for people processing it). -L<Text::Unidecode|Text::Unidecode> +L<Text::Unidecode> - ASCII transliteration of Unicode text. =head1 REPOSITORY diff --git a/cpan/Pod-Escapes/t/15_name2charnum.t b/cpan/Pod-Escapes/t/15_name2charnum.t index da7b3b7cf7..f48d29d30d 100644 --- a/cpan/Pod-Escapes/t/15_name2charnum.t +++ b/cpan/Pod-Escapes/t/15_name2charnum.t @@ -3,9 +3,10 @@ use strict; use Test; +use utf8; my @them; -BEGIN { plan('tests' => 41) }; +BEGIN { plan('tests' => 42) }; BEGIN { print "# Perl version $] under $^O\n" } use Pod::Escapes qw(:ALL); @@ -78,4 +79,7 @@ ok scalar keys %Name2character_number; ok defined $Name2character_number{'eacute'}; ok $Name2character_number{'lt'} eq '60'; +# e2charnum on BENGALI DIGIT SEVEN should return undef +ok(!defined(e2charnum('৭'))); + # End |