summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-12-20 17:47:48 +0000
committerNicholas Clark <nick@ccl4.org>2007-12-20 17:47:48 +0000
commit56d7a0868d14c11c08f61a0acccc9ee745b4e081 (patch)
tree6be875fe25d5cdf919248790f1cf6dfdb8b9075e /embed.h
parent1318745670424caf6c309d2a8e64000cb32872aa (diff)
downloadperl-56d7a0868d14c11c08f61a0acccc9ee745b4e081.tar.gz
Perl_magic_setglob() is a mathom.
p4raw-id: //depot/perl@32672
Diffstat (limited to 'embed.h')
-rw-r--r--embed.h12
1 files changed, 12 insertions, 0 deletions
diff --git a/embed.h b/embed.h
index deb30b3e94..fd21f575fb 100644
--- a/embed.h
+++ b/embed.h
@@ -433,7 +433,13 @@
#define magic_setfm Perl_magic_setfm
#define magic_sethint Perl_magic_sethint
#define magic_setisa Perl_magic_setisa
+#endif
+#ifndef NO_MATHOMS
+#ifdef PERL_CORE
#define magic_setglob Perl_magic_setglob
+#endif
+#endif
+#ifdef PERL_CORE
#define magic_setmglob Perl_magic_setmglob
#define magic_setnkeys Perl_magic_setnkeys
#define magic_setpack Perl_magic_setpack
@@ -2722,7 +2728,13 @@
#define magic_setfm(a,b) Perl_magic_setfm(aTHX_ a,b)
#define magic_sethint(a,b) Perl_magic_sethint(aTHX_ a,b)
#define magic_setisa(a,b) Perl_magic_setisa(aTHX_ a,b)
+#endif
+#ifndef NO_MATHOMS
+#ifdef PERL_CORE
#define magic_setglob(a,b) Perl_magic_setglob(aTHX_ a,b)
+#endif
+#endif
+#ifdef PERL_CORE
#define magic_setmglob(a,b) Perl_magic_setmglob(aTHX_ a,b)
#define magic_setnkeys(a,b) Perl_magic_setnkeys(aTHX_ a,b)
#define magic_setpack(a,b) Perl_magic_setpack(aTHX_ a,b)