X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=os2%2Fos2ish.h;h=a4b972ff0266919126ff90545be3226bca9d93a7;hb=9d419b5f6925ac8219b490513f2c0e4f2d7c7f74;hp=b27a63154a179991d20763383e5c12b3c2ef6ef8;hpb=dbf3bb275a8c67f06df1e6e24df320e3d78b2d60;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/os2/os2ish.h b/os2/os2ish.h
index b27a631..a4b972f 100644
--- a/os2/os2ish.h
+++ b/os2/os2ish.h
@@ -312,7 +312,10 @@ void *sys_alloc(int size);
 #define TMPPATH1 "plXXXXXX"
 extern const char *tmppath;
 PerlIO *my_syspopen(pTHX_ char *cmd, char *mode);
-/* Cannot prototype with I32 at this point. */
+#ifdef PERL_CORE
+/* Cannot prototype with I32, SV at this point (used in x2p too). */
+PerlIO *my_syspopen4(pTHX_ char *cmd, char *mode, I32 cnt, SV** args);
+#endif
 int my_syspclose(PerlIO *f);
 FILE *my_tmpfile (void);
 char *my_tmpnam (char *);