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.h | |
| 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.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -104,6 +104,7 @@ #endif #define croak Perl_croak #define vcroak Perl_vcroak +#define croak_xs_usage Perl_croak_xs_usage #if defined(PERL_IMPLICIT_CONTEXT) #define croak_nocontext Perl_croak_nocontext #define die_nocontext Perl_die_nocontext @@ -2421,6 +2422,7 @@ #define create_eval_scope(a) Perl_create_eval_scope(aTHX_ a) #endif #define vcroak(a,b) Perl_vcroak(aTHX_ a,b) +#define croak_xs_usage(a,b) Perl_croak_xs_usage(aTHX_ a,b) #if defined(PERL_IMPLICIT_CONTEXT) #endif #ifdef PERL_CORE |