File tree 1 file changed +13
-7
lines changed
1 file changed +13
-7
lines changed Original file line number Diff line number Diff line change @@ -932,16 +932,22 @@ sub set_indexed {
932
932
);
933
933
}
934
934
935
- $self -> _set_indexed(
936
- (
935
+ if ( my $doc_name = $self -> documentation ) {
937
936
938
- # .pm file with no package declaration but pod should be indexed
939
- !@{ $self -> module } ||
937
+ # normalize the documentation name for comparison the same way module
938
+ # names are normalized
939
+ my $normalized_doc_name = $doc_name =~ s { '} { ::} gr ;
940
+ $self -> _set_indexed(
941
+ (
942
+ # .pm file with no package declaration but pod should be indexed
943
+ !@{ $self -> module } ||
940
944
941
945
# don't index if the documentation doesn't match any of its modules
942
- !!grep { $self -> documentation eq $_ -> name } @{ $self -> module }
943
- ) ? true : false
944
- ) if ( $self -> documentation );
946
+ grep { $normalized_doc_name eq $_ -> name }
947
+ @{ $self -> module }
948
+ ) ? true : false
949
+ );
950
+ }
945
951
}
946
952
947
953
=head2 set_authorized
You can’t perform that action at this time.
0 commit comments