File tree Expand file tree Collapse file tree 3 files changed +17
-7
lines changed Expand file tree Collapse file tree 3 files changed +17
-7
lines changed Original file line number Diff line number Diff line change @@ -926,7 +926,7 @@ package Maintainers;
926
926
},
927
927
928
928
' Pod::Escapes' => {
929
- ' DISTRIBUTION' => ' NEILB/Pod-Escapes-1.05 .tar.gz' ,
929
+ ' DISTRIBUTION' => ' NEILB/Pod-Escapes-1.06 .tar.gz' ,
930
930
' FILES' => q[ cpan/Pod-Escapes] ,
931
931
},
932
932
Original file line number Diff line number Diff line change @@ -17,7 +17,7 @@ use vars qw(
17
17
18
18
require Exporter;
19
19
@ISA = (' Exporter' );
20
- $VERSION = ' 1.05 ' ;
20
+ $VERSION = ' 1.06 ' ;
21
21
@EXPORT_OK = qw(
22
22
%Code2USASCII
23
23
%Name2character
@@ -90,7 +90,7 @@ sub e2charnum {
90
90
$in = hex $1 ;
91
91
} # else it's decimal, or named
92
92
93
- if ($in =~ m / ^\d +$ / s ) {
93
+ if ($in =~ m / ^[0-9] +$ / s ) {
94
94
return 0 + $in ;
95
95
} else {
96
96
return $Name2character_number {$in }; # returns undef if unknown
@@ -641,11 +641,17 @@ C<chr($Name2character_number{$name})>.
641
641
642
642
=head1 SEE ALSO
643
643
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).
645
651
646
- L<perlpodspec|perlpodspec>
652
+ L<perlpodspec> - specification of pod format (for people processing it).
647
653
648
- L<Text::Unidecode|Text::Unidecode>
654
+ L<Text::Unidecode> - ASCII transliteration of Unicode text.
649
655
650
656
=head1 REPOSITORY
651
657
Original file line number Diff line number Diff line change 3
3
4
4
use strict;
5
5
use Test;
6
+ use utf8;
6
7
7
8
my @them ;
8
- BEGIN { plan(' tests' => 41 ) };
9
+ BEGIN { plan(' tests' => 42 ) };
9
10
BEGIN { print " # Perl version $] under $^O\n " }
10
11
11
12
use Pod::Escapes qw( :ALL) ;
@@ -78,4 +79,7 @@ ok scalar keys %Name2character_number;
78
79
ok defined $Name2character_number {' eacute' };
79
80
ok $Name2character_number {' lt' } eq ' 60' ;
80
81
82
+ # e2charnum on BENGALI DIGIT SEVEN should return undef
83
+ ok(!defined (e2charnum(' ৭' )));
84
+
81
85
# End
You can’t perform that action at this time.
0 commit comments