Fix Win32 linker error

See:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2006-05/msg00758.html

p4raw-id: //depot/perl@28277

diff --git a/embed.fnc b/embed.fnc
index bc12ba1..02c7120 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -312,7 +312,7 @@ XEpoM       |SV *   |refcounted_he_fetch|NN const struct refcounted_he *chain \
                                |NULLOK SV *keysv|NULLOK const char *key \
                                |STRLEN klen, int flags, U32 hash
 dpoM   |void   |refcounted_he_free|NULLOK struct refcounted_he *he
-dpoM   |struct refcounted_he *|refcounted_he_new \
+XEdpoM |struct refcounted_he *|refcounted_he_new \
                                |NULLOK struct refcounted_he *const parent \
                                |NULLOK SV *const key|NULLOK SV *const value
 Apd    |SV**   |hv_store       |NULLOK HV* tb|NULLOK const char* key|I32 klen|NULLOK SV* val \

diff --git a/embed.h b/embed.h
index df7750c..e6fa05e 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -2465,6 +2465,8 @@
 #endif
 #ifdef PERL_CORE
 #endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#endif
 #define hv_store(a,b,c,d,e)    Perl_hv_store(aTHX_ a,b,c,d,e)
 #define hv_store_ent(a,b,c,d)  Perl_hv_store_ent(aTHX_ a,b,c,d)
 #define hv_store_flags(a,b,c,d,e,f)    Perl_hv_store_flags(aTHX_ a,b,c,d,e,f)

diff --git a/global.sym b/global.sym
index c779a04..e1ce974 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -165,6 +165,7 @@ Perl_hv_iterval
 Perl_hv_ksplit
 Perl_hv_magic
 Perl_refcounted_he_fetch
+Perl_refcounted_he_new
 Perl_hv_store
 Perl_hv_store_ent
 Perl_hv_store_flags