From 5ce19fcf9b06ef678cf66fa882e5b9296294b8e0 Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Sun, 9 Feb 2014 21:23:21 +0000
Subject: [PATCH] Update Pod-Escapes to CPAN version 1.05

  [DELTA]

1.05 2014-02-09 NEILB

    * Added PREREQ_PM, MIN_PERL_VERSION, LICENSE and repo to Makefile.PL
    * Made strict- and warnings-clean.
    * Fixed syntax error in abstract: RT#49985 from JDHEDDEN
    * Fixed typo reported in RT#85374 by dsteinbrunner
    * Renamed this file to Changes and reformatted as per CPAN::Changes::Spec
    * Deleted META.yml so MakeMaker will generate MYMETA.{yml,json}
    * Noted in pod that now being maintained by NEILB
    * Added link to github repo in pod
---
 Porting/Maintainers.pl              |  2 +-
 cpan/Pod-Escapes/lib/Pod/Escapes.pm | 47 ++++++++++++++++++++-----------------
 2 files changed, 27 insertions(+), 22 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 7d931f6..06b265e 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -917,7 +917,7 @@ use File::Glob qw(:case);
     },
 
     'Pod::Escapes' => {
-        'DISTRIBUTION' => 'SBURKE/Pod-Escapes-1.04.tar.gz',
+        'DISTRIBUTION' => 'NEILB/Pod-Escapes-1.05.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 de4d75a..e3988a8 100644
--- a/cpan/Pod-Escapes/lib/Pod/Escapes.pm
+++ b/cpan/Pod-Escapes/lib/Pod/Escapes.pm
@@ -1,11 +1,23 @@
-
-require 5;
-#                        The documentation is at the end.
-# Time-stamp: "2004-05-07 15:31:25 ADT"
 package Pod::Escapes;
+use strict;
+use warnings;
+use 5.006;
+
+use vars qw(
+  %Code2USASCII
+  %Name2character
+  %Name2character_number
+  %Latin1Code_to_fallback
+  %Latin1Char_to_fallback
+  $FAR_CHAR
+  $FAR_CHAR_NUMBER
+  $NOT_ASCII
+  @ISA $VERSION @EXPORT_OK %EXPORT_TAGS
+);
+
 require Exporter;
 @ISA = ('Exporter');
-$VERSION = '1.04';
+$VERSION = '1.05';
 @EXPORT_OK = qw(
   %Code2USASCII
   %Name2character
@@ -19,18 +31,6 @@ $VERSION = '1.04';
 
 #==========================================================================
 
-use strict;
-use vars qw(
-  %Code2USASCII
-  %Name2character
-  %Name2character_number
-  %Latin1Code_to_fallback
-  %Latin1Char_to_fallback
-  $FAR_CHAR
-  $FAR_CHAR_NUMBER
-  $NOT_ASCII
-);
-
 $FAR_CHAR = "?" unless defined $FAR_CHAR;
 $FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;
 
@@ -529,7 +529,7 @@ __END__
 
 =head1 NAME
 
-Pod::Escapes -- for resolving Pod EE<lt>...E<gt> sequences
+Pod::Escapes - for resolving Pod EE<lt>...E<gt> sequences
 
 =head1 SYNOPSIS
 
@@ -567,7 +567,7 @@ C<e2char('0x2F')>, and C<e2char('057')> all return "/",
 because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
 and C<EE<lt>057E<gt>>, all mean "/".  If
 the name has no known value (as with a name of "qacute") or is
-syntactally invalid (as with a name of "1/4"), this returns undef.
+syntactically invalid (as with a name of "1/4"), this returns undef.
 
 =item e2charnum($e_content)
 
@@ -579,7 +579,7 @@ C<e2char('0x2F')>, and C<e2char('057')> all return 47,
 because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
 and C<EE<lt>057E<gt>>, all mean "/", whose Unicode number is 47.  If
 the name has no known value (as with a name of "qacute") or is
-syntactally invalid (as with a name of "1/4"), this returns undef.
+syntactically invalid (as with a name of "1/4"), this returns undef.
 
 =item $Name2character{I<name>}
 
@@ -647,6 +647,10 @@ L<perlpodspec|perlpodspec>
 
 L<Text::Unidecode|Text::Unidecode>
 
+=head1 REPOSITORY
+
+L<https://github.com/neilbowers/Pod-Escapes>
+
 =head1 COPYRIGHT AND DISCLAIMERS
 
 Copyright (c) 2001-2004 Sean M. Burke.  All rights reserved.
@@ -671,12 +675,13 @@ Currently (October 2001), that's these three:
 
 Sean M. Burke C<sburke@cpan.org>
 
+Now being maintained by Neil Bowers E<lt>neilb@cpan.orgE<gt>
+
 =cut
 
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 # What I used for reading the XHTML .ent files:
 
-use strict;
 my(@norms, @good, @bad);
 my $dir = 'c:/sgml/docbook/';
 my %escapes;
-- 
2.7.4