Pod::Simple::XHTML: better fallback when HTML::Entities isn't installed

This commit changes the default set of escaped characters in the
fallback code to be the same as in HTML::Entities.

Fixes #188

Author: xenu

lib/Pod/Simple/XHTML.pm

@@ -70,7 +70,8 @@ sub encode_entities {
       $ents =~ s,(?<!\\)([]/]),\\$1,g;
       $ents =~ s,(?<!\\)\\\z,\\\\,;
   } else {
-      $ents = join '', keys %entities;
+      # the same set of characters as in HTML::Entities
+      $ents = '^\n\r\t !\#\$%\(-;=?-~';
   }
   my $str = $_[0];
   $str =~ s/([$ents])/'&' . ($entities{$1} || sprintf '#x%X', ord $1) . ';'/ge;

t/xhtml01.t

@@ -1,7 +1,7 @@
 # t/xhtml01.t - check basic output from Pod::Simple::XHTML
 use strict;
 use warnings;
-use Test::More tests => 66;
+use Test::More tests => 68;
 
 use_ok('Pod::Simple::XHTML') or exit;
 
@@ -751,11 +751,28 @@ EOHTML
   # Keep =encoding out of content.
   initialize($parser, $results);
   $parser->parse_string_document("=encoding ascii\n\n=head1 NAME\n");
-  is($results, <<"EOHTML", 'Encoding should not be in content')
+  is($results, <<"EOHTML", 'Encoding should not be in content');
 <h1 id="NAME">NAME</h1>
 
 EOHTML
 
+  initialize($parser, $results);
+  $parser->parse_string_document(<<"EOPOD");
+=pod
+
+=encoding UTF-8
+
+Encyclopædia Britannica
+
+=cut
+
+EOPOD
+
+  $T = $use_html_entities ? '&aelig;' : sprintf ('&#x%X;', ord("\x{E6}"));
+  is($results, <<"EOHTML", 'Non-ASCII characters are escaped')
+<p>Encyclop${T}dia Britannica</p>
+
+EOHTML
 }