diff options
| author | Zefram <zefram@fysh.org> | 2010-10-25 23:34:23 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-25 17:45:14 -0700 |
| commit | c68d956458c78806cbdba85dfe23247f62e143d5 (patch) | |
| tree | c61fbddcbc0d54a524e6ae2c5c1b4a65a60319b3 /proto.h | |
| parent | 3ba4b5c12a24a4d2dd2388527109b05429b3565c (diff) | |
| download | perl-c68d956458c78806cbdba85dfe23247f62e143d5.tar.gz | |
add CvSTASH_set() macro and make CvSTASH() rvalue only
Now that CvSTASH requires backreference bookkeeping, stop people from
directly assigning to it (by using CvSTASH() as an lvalue), and instead
force them to use CvSTASH_set().
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -602,6 +602,11 @@ PERL_CALLCONV void Perl_cvgv_set(pTHX_ CV* cv, GV* gv) #define PERL_ARGS_ASSERT_CVGV_SET \ assert(cv) +PERL_CALLCONV void Perl_cvstash_set(pTHX_ CV* cv, HV* stash) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_CVSTASH_SET \ + assert(cv) + PERL_CALLCONV void Perl_cx_dump(pTHX_ PERL_CONTEXT* cx) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_CX_DUMP \ |