Make Pod::Html more robust against malformed L<> contents.

Pod::Html attempts to search for the contents to see if they are a suffix
of any entry in an existing list, using a regular expression.
Previously the contents were interpolated directly into a regex, which
meant that if they happened to be syntactically invalid regular expression
syntax, Pod::Html aborted with a runtime error.

diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
index 5ae242b..4441742 100644 (file)
--- a/ext/Pod-Html/lib/Pod/Html.pm
+++ b/ext/Pod-Html/lib/Pod/Html.pm
@@ -3,7 +3,7 @@ use strict;
 require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION = 1.12;
+$VERSION = 1.13;
 @ISA = qw(Exporter);
 @EXPORT = qw(pod2html htmlify);
 @EXPORT_OK = qw(anchorify);
@@ -571,7 +571,7 @@ sub resolve_pod_page_link {
         # as a substitute (e.g., $Podpath/Pod/Simple/XHTML)
         my @matches;
         foreach my $modname (keys %{$self->pages}) {
-            push @matches, $modname if $modname =~ /::$to\z/;
+            push @matches, $modname if $modname =~ /::\Q$to\E\z/;
         }
 
         if ($#matches == -1) {

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 477ba85..e3a75de 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -266,6 +266,10 @@ hold a number internally, but no string buffer.
 
 =item *
 
+L<Pod::Html> has been upgraded from version 1.12 to 1.13
+
+=item *
+
 L<POSIX> has been upgraded from version 1.27 to version 1.29.
 
 C<sigsuspend> and C<pause> now run signals handle before returning, as the