summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CORE/iperlsys.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/iperlsys.h')
-rw-r--r--Master/tlpkg/tlperl/lib/CORE/iperlsys.h10
1 files changed, 3 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/iperlsys.h b/Master/tlpkg/tlperl/lib/CORE/iperlsys.h
index 003405f690f..57160e0804f 100644
--- a/Master/tlpkg/tlperl/lib/CORE/iperlsys.h
+++ b/Master/tlpkg/tlperl/lib/CORE/iperlsys.h
@@ -315,10 +315,12 @@ struct IPerlStdIOInfo
#define PerlSIO_fputs(s,f) fputs(s,f)
#define PerlSIO_fflush(f) Fflush(f)
#define PerlSIO_fgets(s, n, f) fgets(s,n,f)
-#if defined(VMS) && defined(__DECC)
+#if defined(__VMS)
/* Unusual definition of ungetc() here to accommodate fast_sv_gets()'
* belief that it can mix getc/ungetc with reads from stdio buffer */
+START_EXTERN_C
int decc$ungetc(int __c, FILE *__stream);
+END_EXTERN_C
# define PerlSIO_ungetc(c,f) ((c) == EOF ? EOF : \
((*(f) && !((*(f))->_flag & _IONBF) && \
((*(f))->_ptr > (*(f))->_base)) ? \
@@ -1413,11 +1415,5 @@ struct IPerlSockInfo
#endif /* __Inc__IPerl___ */
/*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
* ex: set ts=8 sts=4 sw=4 et:
*/