diff options
| -rw-r--r-- | perlio.h | 6 | ||||
| -rw-r--r-- | vms/gen_shrfls.pl | 2 |
2 files changed, 6 insertions, 2 deletions
@@ -307,7 +307,7 @@ extern int PerlIO_setpos (PerlIO *,SV *); #ifndef PerlIO_fdupopen extern PerlIO * PerlIO_fdupopen (pTHX_ PerlIO *); #endif -#ifndef PerlIO_modestr +#if !defined(PerlIO_modestr) && !defined(PERLIO_IS_STDIO) extern char *PerlIO_modestr (PerlIO *,char *buf); #endif #ifndef PerlIO_isutf8 @@ -320,10 +320,14 @@ extern int PerlIO_apply_layers (pTHX_ PerlIO *f, const char *mode, const char *n extern int PerlIO_binmode (pTHX_ PerlIO *f, int iotype, int omode, const char *names); #endif +#ifndef PERLIO_IS_STDIO + extern void PerlIO_cleanup(); extern void PerlIO_debug(const char *fmt,...); +#endif + END_EXTERN_C #endif /* _PERLIO_H */ diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 6c54c107e3..48499d4a49 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -172,7 +172,7 @@ if ($docc) { else { open(CPP,"$cpp_file") or die "$0: Can't read preprocessed file $cpp_file: $!\n"; } -%checkh = map { $_,1 } qw( thread bytecode byterun proto ); +%checkh = map { $_,1 } qw( thread bytecode byterun proto perlio ); $ckfunc = 0; LINE: while (<CPP>) { while (/^#.*vmsish\.h/i .. /^#.*perl\.h/i) { |