summaryrefslogtreecommitdiff
path: root/autodoc.pl
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-07-22 08:47:37 -0600
committerKarl Williamson <khw@cpan.org>2020-09-04 16:13:24 -0600
commit99c35d3fb5896c75933caf2fb827c0c347afa12b (patch)
tree29191bf4269c1da25c6333cf650aac4d7d779af8 /autodoc.pl
parent27104915c310afc4d6159269915a4f0e177e09a4 (diff)
downloadperl-99c35d3fb5896c75933caf2fb827c0c347afa12b.tar.gz
autodoc.pl: Add helpful info to two diagnostics
Diffstat (limited to 'autodoc.pl')
-rw-r--r--autodoc.pl6
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;