This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid "reopen" semantics for time being. Fix bug in dup logic.
[perl5.git] / perlio.h
index 4efdae3..51b9a83 100644 (file)
--- a/perlio.h
+++ b/perlio.h
@@ -189,7 +189,7 @@ extern int  PerlIO_puts             (PerlIO *,const char *);
 #ifndef PerlIO_open
 extern PerlIO *        PerlIO_open             (const char *,const char *);
 #endif
-#ifndef PerlIO_open
+#ifndef PerlIO_openn
 extern PerlIO *        PerlIO_openn            (pTHX_ const char *layers, const char *mode,int fd,int imode,int perm,PerlIO *old,int narg,SV **arg);
 #endif
 #ifndef PerlIO_close