diff options
| author | Craig A. Berry <craigberry@mac.com> | 2000-12-16 18:18:35 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-19 17:03:08 +0000 |
| commit | 11ae941d53150932debe70c539ca1248bb0869c2 (patch) | |
| tree | 7d17d5ffff8d5b4b0baafd78b95b4b47babd750b | |
| parent | 733271b51cb808b667b461e771c0df10f59dfaba (diff) | |
| download | perl-11ae941d53150932debe70c539ca1248bb0869c2.tar.gz | |
finding PerlIO symbols for VMS
Message-Id: <p04330102b661bc01daba@[172.16.52.1]>
p4raw-id: //depot/perl@8190
| -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) { |