Home | History | Annotate | Download | only in util

Lines Matching refs:podinfo

742     my %podinfo = @_;
743 my $filename = $podinfo{filename};
745 my $contents = $podinfo{contents};
1021 my %podinfo = @_;
1022 my $filename = $podinfo{filename};
1027 my $is_generic = $podinfo{contents} =~ /^=for openssl generic/ms;
1029 unless ( grep { $simplename eq $_ } @{$podinfo{names}} ) {
1031 push @{$podinfo{names}}, $simplename;
1033 foreach my $name ( @{$podinfo{names}} ) {
1042 my $contents = $podinfo{contents};
1061 if ( $podinfo{contents} =~ /=for openssl foreign manual (.*)\n/ ) {
1069 # Don't use this regexp directly on $podinfo{contents}, as it causes
1082 while ( $podinfo{contents} =~ /$markup_re/msg ) {
1263 my %podinfo = extract_pod_info($_, { debug => $debug });
1265 collectnames(%podinfo)
1268 check(%podinfo)