Lines Matching refs:target
720 my $target = $1;
721 next unless $target =~ /^L<(.*)>$/; # Skip if not L<...>
722 $target = $1; # Peal away L< and >
723 $target =~ s/\/[^\/]*$//; # Peal away possible anchor
724 $target =~ s/.*\|//g; # Peal away possible link text
725 next if $target eq ''; # Skip if links within page, or
726 next if $target =~ /::/; # links to a Perl module, or
727 next if $target =~ /^https?:/; # is a URL link, or
728 next if $target =~ /\([1357]\)$/; # it has a section
729 err($id, "Missing man section number (likely, $mansect) in L<$target>")
733 my $target = $1;
734 next if $target =~ /openssl-?/;
735 next if ( grep { basename($_) eq "$target.pod" }
737 next if $target =~ /ps|apropos|sha1sum|procmail|perl/;
738 err($id, "Bad command link L<$target(1)>") if grep /man1/, @sections;
742 my $target = $1;
743 err($id, "Bad L<$target>")
744 unless $target =~ /^[_[:alpha:]][_[:alnum:]]*$/
