From 38d111ed3d31ba88924199477d04e44fc3973211 Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Fri, 14 Feb 2014 21:57:58 +0000
Subject: [PATCH] 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
---
 Porting/Maintainers.pl               |  2 +-
 cpan/Pod-Escapes/lib/Pod/Escapes.pm  | 16 +++++++++++-----
 cpan/Pod-Escapes/t/15_name2charnum.t |  6 +++++-
 3 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 94dfe88..fb631d2 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -926,7 +926,7 @@ use File::Glob qw(:case);
     },
 
     'Pod::Escapes' => {
-        'DISTRIBUTION' => 'NEILB/Pod-Escapes-1.05.tar.gz',
+        'DISTRIBUTION' => 'NEILB/Pod-Escapes-1.06.tar.gz',
         'FILES'        => q[cpan/Pod-Escapes],
     },
 
diff --git a/cpan/Pod-Escapes/lib/Pod/Escapes.pm b/cpan/Pod-Escapes/lib/Pod/Escapes.pm
index e3988a8..52b5272 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 da7b3b7..f48d29d 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
-- 
2.7.4