| Subject: | Indexer fooled by =cut |
Around line 140 of M::D::Indexer, you have
if ($in_pod) {
$in_pod = 0 if (/^=cut\s*$/);
next;
}
which will be fooled by code of the form
=pod
Blah
=cut "and now we return to our regular program"
use Foo;
This can be fixed by replacing the regular expression by /^=cut\s?/
(and not /^=cut/, which would allow spurious matches like '=cutting edge')