X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=3f3b668bbb618ac6956687c72165a362d28427e5;hb=0a87c45925ff377a5a12eedc88c116133919463d;hp=d15e9ab8baa8c1be62be635287d0f9cf6f1cbf84;hpb=db5886f1c778575b40da80b66a50b6ab376ad943;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index d15e9ab..3f3b668 100644
--- a/embed.h
+++ b/embed.h
@@ -908,7 +908,9 @@
 #define vivify_ref		Perl_vivify_ref
 #define wait4pid		Perl_wait4pid
 #define parse_unicode_opts	Perl_parse_unicode_opts
+#endif
 #define seed			Perl_seed
+#ifdef PERL_CORE
 #define get_hash_seed		Perl_get_hash_seed
 #define report_evil_fh		Perl_report_evil_fh
 #define report_uninit		Perl_report_uninit
@@ -2902,7 +2904,9 @@
 #define vivify_ref(a,b)		Perl_vivify_ref(aTHX_ a,b)
 #define wait4pid(a,b,c)		Perl_wait4pid(aTHX_ a,b,c)
 #define parse_unicode_opts(a)	Perl_parse_unicode_opts(aTHX_ a)
+#endif
 #define seed()			Perl_seed(aTHX)
+#ifdef PERL_CORE
 #define get_hash_seed()		Perl_get_hash_seed(aTHX)
 #define report_evil_fh(a,b,c)	Perl_report_evil_fh(aTHX_ a,b,c)
 #define report_uninit(a)	Perl_report_uninit(aTHX_ a)