Steps along the road toward Win32 building again.

p4raw-id: //depot/perlio@10591

diff --git a/perlio.c b/perlio.c
index 242aa71..ac5ace8 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -393,8 +393,10 @@ PerlIO_list_push(PerlIO_list_t *list,PerlIO_funcs *funcs,SV *arg)
   }
  p = &(list->array[list->cur++]);
  p->funcs = funcs;
- if ((p->arg = arg))
+ if ((p->arg = arg)) {
+  dTHX; 
   SvREFCNT_inc(arg);
+ }
 }
 
 
@@ -4015,3 +4017,4 @@ PerlIO_sprintf(char *s, int n, const char *fmt,...)
 
 
 
+

diff --git a/win32/makefile.mk b/win32/makefile.mk
index ccace2e..e9b9b54 100644 (file)
--- a/win32/makefile.mk
+++ b/win32/makefile.mk
@@ -671,6 +671,8 @@ MICROCORE_SRC       =               \
                ..\universal.c  \\r
                ..\utf8.c       \\r
                ..\util.c       \\r
+               ..\numeric.c    \\r
+               ..\locale.c     \\r
                ..\xsutils.c\r
 \r
 EXTRACORE_SRC  += perllib.c\r