Extract doio.c's open(2) mode to string conversion as PerlIO_intmod2str()

Use for non-PERLIO fdupopen().

p4raw-id: //depot/perlio@12532

1 files changed, 2 insertions, 0 deletions

diff --git a/perlio.h b/perlio.h
index 1921a52957..c5a25f3257 100644
--- a/perlio.h
+++ b/perlio.h
@@ -346,6 +346,8 @@ extern char *PerlIO_getname(PerlIO *, char *);
 
 extern void PerlIO_destruct(pTHX);
 
+extern int PerlIO_intmode2str(int rawmode, char *mode, int *writing);
+
 #ifndef PERLIO_IS_STDIO
 
 extern void PerlIO_cleanup(void);