Lines Matching refs:podinfo
699 my %podinfo = @_;
700 my $filename = $podinfo{filename};
702 my $contents = $podinfo{contents};
968 my %podinfo = @_;
969 my $filename = $podinfo{filename};
974 my $is_generic = $podinfo{contents} =~ /^=for openssl generic/ms;
976 unless ( grep { $simplename eq $_ } @{$podinfo{names}} ) {
978 push @{$podinfo{names}}, $simplename;
980 foreach my $name ( @{$podinfo{names}} ) {
999 if ( $podinfo{contents} =~ /=for openssl foreign manual (.*)\n/ ) {
1007 # Don't use this regexp directly on $podinfo{contents}, as it causes
1020 while ( $podinfo{contents} =~ /$markup_re/msg ) {
1201 my %podinfo = extract_pod_info($_, { debug => $debug });
1203 collectnames(%podinfo)
1206 check(%podinfo)