From 11ae941d53150932debe70c539ca1248bb0869c2 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 16 Dec 2000 18:18:35 -0600
Subject: [PATCH] finding PerlIO symbols for VMS Message-Id:
 <p04330102b661bc01daba@[172.16.52.1]>

p4raw-id: //depot/perl@8190
---
 perlio.h          | 6 +++++-
 vms/gen_shrfls.pl | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/perlio.h b/perlio.h
index b2e5179..0c6b26a 100644
--- a/perlio.h
+++ b/perlio.h
@@ -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 6c54c10..48499d4 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) {
-- 
2.7.4