diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-05-21 13:35:43 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-05-21 13:35:43 +0000 |
| commit | afa74d4282044c64ab152392003f47bb0674abd2 (patch) | |
| tree | dae202bcf5f0624235f7d7446c5eef9e30288694 /embed.fnc | |
| parent | 79706302bf1cd487fc44c6b9085b2f2ba0fa11ff (diff) | |
| download | perl-afa74d4282044c64ab152392003f47bb0674abd2.tar.gz | |
Add Perl_croak_xs_usage(), which reduces a lot of explicit calls of
the form Perl_croak(aTHX_ "Usage %s::%s(%s)", "ouch" "awk", "eee_yow");
down to croak_xs_usage(cv, "eee_yow"); and refactor all the core XS
code to use it. This adds () to the error messages for attributes::*
p4raw-id: //depot/perl@33901
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -148,6 +148,9 @@ pM |PERL_CONTEXT* |create_eval_scope|U32 flags : croak()'s first parm can be NULL. Otherwise, mod_perl breaks. Afprd |void |croak |NULLOK const char* pat|... Apr |void |vcroak |NULLOK const char* pat|NULLOK va_list* args +Aprd |void |croak_xs_usage |NN const CV *const cv \ + |NN const char *const params + #if defined(PERL_IMPLICIT_CONTEXT) Afnrp |void |croak_nocontext|NULLOK const char* pat|... Afnp |OP* |die_nocontext |NN const char* pat|... |