summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2010-09-24 20:33:03 -0700
committerFather Chrysostomos <sprout@cpan.org>2010-09-24 20:33:03 -0700
commit06c841cf64c10f912e4cb0d12dbfc0add671bb81 (patch)
treeb02e773cef0db952bb77579942f1334d3183b9d8 /embed.h
parent078504b2d0c069e5cefbe4670341aa18838d452d (diff)
downloadperl-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.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/embed.h b/embed.h
index d6f0b2f187..033064118c 100644
--- a/embed.h
+++ b/embed.h
@@ -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)