diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 15:53:31 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 16:47:50 -0700 |
| commit | b7acb0a30ed43df67095edb94273785a03b4d989 (patch) | |
| tree | 9d16f30ff26b773f5013ac60e666dd81f4544187 /proto.h | |
| parent | 0c028dca83ca08aba6b78a65e979163e4a779bf8 (diff) | |
| download | perl-b7acb0a30ed43df67095edb94273785a03b4d989.tar.gz | |
Stop undef &foo from temporarily anonymising
Instead of setting aside the name, calling cv_undef, and then naming
the sub anew, just pass a flag to tell cv_undef not to unname it.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -835,6 +835,11 @@ PERL_CALLCONV void Perl_cv_undef(pTHX_ CV* cv) #define PERL_ARGS_ASSERT_CV_UNDEF \ assert(cv) +PERL_CALLCONV void Perl_cv_undef_flags(pTHX_ CV* cv, U32 flags) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_CV_UNDEF_FLAGS \ + assert(cv) + PERL_CALLCONV GV * Perl_cvgv_from_hek(pTHX_ CV* cv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_CVGV_FROM_HEK \ |