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 /embed.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 'embed.h')
-rw-r--r-- | embed.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -919,7 +919,7 @@ #ifdef PERL_CORE #define sub_crush_depth Perl_sub_crush_depth #endif -#define sv_2bool Perl_sv_2bool +#define sv_2bool_flags Perl_sv_2bool_flags #define sv_2cv Perl_sv_2cv #define sv_2io Perl_sv_2io #if defined(PERL_IN_SV_C) @@ -3390,7 +3390,7 @@ #ifdef PERL_CORE #define sub_crush_depth(a) Perl_sub_crush_depth(aTHX_ a) #endif -#define sv_2bool(a) Perl_sv_2bool(aTHX_ a) +#define sv_2bool_flags(a,b) Perl_sv_2bool_flags(aTHX_ a,b) #define sv_2cv(a,b,c,d) Perl_sv_2cv(aTHX_ a,b,c,d) #define sv_2io(a) Perl_sv_2io(aTHX_ a) #if defined(PERL_IN_SV_C) |