Loading util/find-doc-nits +14 −0 Original line number Diff line number Diff line Loading @@ -142,6 +142,18 @@ sub name_synopsis() } } # Check if EXAMPLES is located after RETURN VALUES section. sub check_example_location() { my $filename = shift; my $contents = shift; return unless $contents =~ /=head1 RETURN VALUES/ and $contents =~ /=head1 EXAMPLES/; print "$filename: RETURN VAULES should be placed before EXAMPLES section\n" if $contents =~ /=head1 EXAMPLES.*=head1 RETURN VALUES/ms; } sub check() { my $filename = shift; Loading @@ -155,6 +167,8 @@ sub check() close POD; } &check_example_location($filename, $contents) if $filename =~ m|man3/|; my $id = "${filename}:1:"; &name_synopsis($id, $filename, $contents) Loading Loading
util/find-doc-nits +14 −0 Original line number Diff line number Diff line Loading @@ -142,6 +142,18 @@ sub name_synopsis() } } # Check if EXAMPLES is located after RETURN VALUES section. sub check_example_location() { my $filename = shift; my $contents = shift; return unless $contents =~ /=head1 RETURN VALUES/ and $contents =~ /=head1 EXAMPLES/; print "$filename: RETURN VAULES should be placed before EXAMPLES section\n" if $contents =~ /=head1 EXAMPLES.*=head1 RETURN VALUES/ms; } sub check() { my $filename = shift; Loading @@ -155,6 +167,8 @@ sub check() close POD; } &check_example_location($filename, $contents) if $filename =~ m|man3/|; my $id = "${filename}:1:"; &name_synopsis($id, $filename, $contents) Loading