diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-01-10 15:43:55 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-01-10 15:43:55 +0100 |
commit | 6ca15f9f115ad19f613d82df7a5ab8273b267a46 (patch) | |
tree | 5243d277918c37f952b7ad346d216f960b50a9ea | |
parent | c3c3303bea73658770d9780d8958f0fe34811f89 (diff) | |
download | perl-smoke-me/installhtml.tar.gz |
Make Pod::Html more robust against malformed L<> contents.smoke-me/installhtml
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.
-rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 4 | ||||
-rw-r--r-- | pod/perldelta.pod | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index 5ae242b96f..444174274a 100644 --- 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 ab3c862b57..6c06b88cd1 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -202,6 +202,10 @@ L<perlfaq> has been upgraded from version 5.0150036 to version 5.0150037. =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 |