Skip to content

Commit 38d111e

Browse files
committed
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
1 parent 4620cb6 commit 38d111e

File tree

3 files changed

+17
-7
lines changed

3 files changed

+17
-7
lines changed

Porting/Maintainers.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -926,7 +926,7 @@ package Maintainers;
926926
},
927927

928928
'Pod::Escapes' => {
929-
'DISTRIBUTION' => 'NEILB/Pod-Escapes-1.05.tar.gz',
929+
'DISTRIBUTION' => 'NEILB/Pod-Escapes-1.06.tar.gz',
930930
'FILES' => q[cpan/Pod-Escapes],
931931
},
932932

cpan/Pod-Escapes/lib/Pod/Escapes.pm

Lines changed: 11 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ use vars qw(
1717

1818
require Exporter;
1919
@ISA = ('Exporter');
20-
$VERSION = '1.05';
20+
$VERSION = '1.06';
2121
@EXPORT_OK = qw(
2222
%Code2USASCII
2323
%Name2character
@@ -90,7 +90,7 @@ sub e2charnum {
9090
$in = hex $1;
9191
} # else it's decimal, or named
9292

93-
if($in =~ m/^\d+$/s) {
93+
if($in =~ m/^[0-9]+$/s) {
9494
return 0 + $in;
9595
} else {
9696
return $Name2character_number{$in}; # returns undef if unknown
@@ -641,11 +641,17 @@ C<chr($Name2character_number{$name})>.
641641
642642
=head1 SEE ALSO
643643
644-
L<perlpod|perlpod>
644+
L<Pod::Browser> - a pod web server based on L<Catalyst>.
645+
646+
L<Pod::Checker> - check pod documents for syntax errors.
647+
648+
L<Pod::Coverage> - check if the documentation for a module is comprehensive.
649+
650+
L<perlpod> - description of pod format (for people documenting with pod).
645651
646-
L<perlpodspec|perlpodspec>
652+
L<perlpodspec> - specification of pod format (for people processing it).
647653
648-
L<Text::Unidecode|Text::Unidecode>
654+
L<Text::Unidecode> - ASCII transliteration of Unicode text.
649655
650656
=head1 REPOSITORY
651657

cpan/Pod-Escapes/t/15_name2charnum.t

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,9 +3,10 @@
33

44
use strict;
55
use Test;
6+
use utf8;
67

78
my @them;
8-
BEGIN { plan('tests' => 41) };
9+
BEGIN { plan('tests' => 42) };
910
BEGIN { print "# Perl version $] under $^O\n" }
1011

1112
use Pod::Escapes qw(:ALL);
@@ -78,4 +79,7 @@ ok scalar keys %Name2character_number;
7879
ok defined $Name2character_number{'eacute'};
7980
ok $Name2character_number{'lt'} eq '60';
8081

82+
# e2charnum on BENGALI DIGIT SEVEN should return undef
83+
ok(!defined(e2charnum('')));
84+
8185
# End

0 commit comments

Comments
 (0)