diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-04-23 20:29:13 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-21 16:51:34 -0700 |
| commit | 09fb282d08ec6c0189a10f94933ae9c8b8186577 (patch) | |
| tree | f14564b5856183a9cc59a306dd19105ec808ef9d /proto.h | |
| parent | e33525913afb6ff03f7a9e1f9881fd5ea6982f22 (diff) | |
| download | perl-09fb282d08ec6c0189a10f94933ae9c8b8186577.tar.gz | |
Copy call checker when cloning closure prototype
Otherwise cv_set_call_checker has no effect inside an attribute han-
dler for a closure.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -2060,6 +2060,13 @@ PERL_CALLCONV int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg) #define PERL_ARGS_ASSERT_MAGIC_CLEARSIG \ assert(sv); assert(mg) +PERL_CALLCONV int Perl_magic_copycallchecker(pTHX_ SV* sv, MAGIC *mg, SV *nsv, const char *name, I32 namlen) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3); +#define PERL_ARGS_ASSERT_MAGIC_COPYCALLCHECKER \ + assert(sv); assert(mg); assert(nsv) + PERL_CALLCONV void Perl_magic_dump(pTHX_ const MAGIC *mg); PERL_CALLCONV int Perl_magic_existspack(pTHX_ SV* sv, const MAGIC* mg) __attribute__nonnull__(pTHX_1) |