diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:33:03 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:33:03 -0700 |
| commit | 06c841cf64c10f912e4cb0d12dbfc0add671bb81 (patch) | |
| tree | b02e773cef0db952bb77579942f1334d3183b9d8 /proto.h | |
| parent | 078504b2d0c069e5cefbe4670341aa18838d452d (diff) | |
| download | perl-06c841cf64c10f912e4cb0d12dbfc0add671bb81.tar.gz | |
[perl #76814] FETCH called twice - !
This fixes ! by changing sv_2bool to sv_2bool_flags (with a macro
wrapper) and adding SvTRUE_nomg. It also corrects the docs that state
incorrectly that SvTRUE does not handle magic.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -3214,9 +3214,12 @@ PERL_CALLCONV void Perl_sub_crush_depth(pTHX_ CV* cv) #define PERL_ARGS_ASSERT_SUB_CRUSH_DEPTH \ assert(cv) -PERL_CALLCONV bool Perl_sv_2bool(pTHX_ SV *const sv) +/* PERL_CALLCONV bool sv_2bool(pTHX_ SV *const sv) + __attribute__nonnull__(pTHX_1); */ + +PERL_CALLCONV bool Perl_sv_2bool_flags(pTHX_ SV *const sv, const I32 flags) __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_SV_2BOOL \ +#define PERL_ARGS_ASSERT_SV_2BOOL_FLAGS \ assert(sv) PERL_CALLCONV CV* Perl_sv_2cv(pTHX_ SV* sv, HV **const st, GV **const gvp, const I32 lref) |