diff options
| author | Marc Green <marcgreen@cpan.org> | 2011-06-20 07:18:16 -0400 |
|---|---|---|
| committer | Marc Green <marcgreen@cpan.org> | 2011-10-31 13:26:40 -0400 |
| commit | b0022953618108b171bc1167b9cd834193bce7dd (patch) | |
| tree | 78185392e98d482ed4b413fedb64d354ac4e7568 /ext/Pod-Html | |
| parent | 1298850cc6cd5278e580a9c38e8d1e214b7077b0 (diff) | |
| download | perl-b0022953618108b171bc1167b9cd834193bce7dd.tar.gz | |
Fix bug dealing with PODS not in %Pages
The bug inhibited finding replacement paths for POD documents not found
in %Pages.
Update the accompanying warning message, too.
Diffstat (limited to 'ext/Pod-Html')
| -rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index f1cd250278..21d00c1f29 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -532,21 +532,21 @@ 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 =~ /::$to\z/; } if ($#matches == -1) { - warn "Cannot find $to in podpath: " . + warn "Cannot find \"$to\" in podpath: " . "cannot find suitable replacement path, cannot resolve link\n" unless $self->quiet; return ''; } elsif ($#matches == 0) { - warn "Cannot find $to in podpath: " . + warn "Cannot find \"$to\" in podpath: " . "using $matches[0] as replacement path to $to\n" unless $self->quiet; $path = $self->pages->{$matches[0]}; } else { - warn "Cannot find $to in podpath: " . + warn "Cannot find \"$to\" in podpath: " . "more than one possible replacement path to $to, " . "using $matches[-1]\n" unless $self->quiet; # Use last one found so that newer perl PODs are used |