:utf8 works only with perlio.

[p5sagit/p5-mst-13.2.git] / win32 / win32iop.h

diff --git a/win32/win32iop.h b/win32/win32iop.h
index 5412f5e..51ddb03 100644 (file)
--- a/win32/win32iop.h
+++ b/win32/win32iop.h
@@ -73,6 +73,7 @@ DllExport  int        win32_fstat(int fd,struct stat *sbufptr);
 DllExport  int         win32_stat(const char *name,struct stat *sbufptr);
 DllExport  int         win32_pipe( int *phandles, unsigned int psize, int textmode );
 DllExport  PerlIO*     win32_popen( const char *command, const char *mode );
+DllExport  PerlIO*     win32_popenlist(const char *mode, IV narg, SV **args);
 DllExport  int         win32_pclose( PerlIO *pf);
 DllExport  int         win32_rename( const char *oname, const char *newname);
 DllExport  int         win32_setmode( int fd, int mode);
@@ -144,6 +145,12 @@ DllExport  int             win32_getpid(void);
 
 DllExport char *       win32_crypt(const char *txt, const char *salt);
 
+DllExport void *       win32_get_childenv(void);
+DllExport void         win32_free_childenv(void* d);
+DllExport void         win32_clearenv(void);
+DllExport char *       win32_get_childdir(void);
+DllExport void         win32_free_childdir(char* d);
+
 END_EXTERN_C
 
 /*
@@ -298,6 +305,17 @@ END_EXTERN_C
 #undef crypt
 #define crypt(t,s)             win32_crypt(t,s)
 
+#undef get_childenv
+#undef free_childenv
+#undef clearenv
+#undef get_childdir
+#undef free_childdir
+#define get_childenv()         win32_get_childenv()
+#define free_childenv(d)       win32_free_childenv(d)
+#define clearenv()             win32_clearenv()
+#define get_childdir()         win32_get_childdir()
+#define free_childdir(d)       win32_free_childdir(d)
+
 #undef getenv
 #define getenv win32_getenv
 #undef putenv