diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-11-17 06:15:08 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-17 13:08:53 -0800 |
| commit | d3ee9aa5e84acbd1e77a76e786799789f0d2a637 (patch) | |
| tree | 8e6b6f31726dfd6aabfaced95b0a889037a0ba7a /universal.c | |
| parent | 4407f1b81529944846e9211adf563fc23fdc2f19 (diff) | |
| download | perl-d3ee9aa5e84acbd1e77a76e786799789f0d2a637.tar.gz | |
Sprinkle diag_listed_as
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/universal.c b/universal.c index 85b91d0295..969acbd03a 100644 --- a/universal.c +++ b/universal.c @@ -312,15 +312,18 @@ Perl_croak_xs_usage(const CV *const cv, const char *const params) const HV *const stash = GvSTASH(gv); if (HvNAME_get(stash)) + /* diag_listed_as: SKIPME */ Perl_croak_nocontext("Usage: %"HEKf"::%"HEKf"(%s)", HEKfARG(HvNAME_HEK(stash)), HEKfARG(GvNAME_HEK(gv)), params); else + /* diag_listed_as: SKIPME */ Perl_croak_nocontext("Usage: %"HEKf"(%s)", HEKfARG(GvNAME_HEK(gv)), params); } else { /* Pants. I don't think that it should be possible to get here. */ + /* diag_listed_as: SKIPME */ Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); } } |