diff options
author | Karl Williamson <khw@cpan.org> | 2020-07-22 08:47:37 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-09-04 16:13:24 -0600 |
commit | 99c35d3fb5896c75933caf2fb827c0c347afa12b (patch) | |
tree | 29191bf4269c1da25c6333cf650aac4d7d779af8 /autodoc.pl | |
parent | 27104915c310afc4d6159269915a4f0e177e09a4 (diff) | |
download | perl-99c35d3fb5896c75933caf2fb827c0c347afa12b.tar.gz |
autodoc.pl: Add helpful info to two diagnostics
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/autodoc.pl b/autodoc.pl index c2fdcd3698..e7e3d54ada 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -222,7 +222,7 @@ DOC: redo FUNC; } } else { - warn "$file:$line:$in"; + warn "No doc for $file:$line:$in"; } } } @@ -263,8 +263,8 @@ removed without notice.\n\n$docs" if $flags =~ /x/; # nothing } else { if ($flags =~ /n/) { # no args - warn("n flag without m") unless $flags =~ /m/; - warn("n flag but apparently has args") if @args; + warn("$file: $name: n flag without m") unless $flags =~ /m/; + warn("$file: $name: n flag but apparently has args") if @args; print $fh "\t$ret\t$name"; } else { # full usage my $n = "Perl_"x$p . $name; |