summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CORE/perliol.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/perliol.h')
-rw-r--r--Master/tlpkg/tlperl/lib/CORE/perliol.h14
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/perliol.h b/Master/tlpkg/tlperl/lib/CORE/perliol.h
index 236932616df..b8c0eae6d6d 100644
--- a/Master/tlpkg/tlperl/lib/CORE/perliol.h
+++ b/Master/tlpkg/tlperl/lib/CORE/perliol.h
@@ -67,6 +67,14 @@ struct _PerlIO {
PerlIOl *next; /* Lower layer */
PerlIO_funcs *tab; /* Functions for this layer */
U32 flags; /* Various flags for state */
+ int err; /* Saved errno value */
+#ifdef VMS
+ unsigned os_err; /* Saved vaxc$errno value */
+#elif defined (OS2)
+ unsigned long os_err;
+#elif defined (WIN32)
+ DWORD os_err; /* Saved GetLastError() value */
+#endif
PerlIOl *head; /* our ultimate parent pointer */
};
@@ -281,11 +289,5 @@ PERL_EXPORT_C IV PerlIOUtf8_pushed(pTHX_ PerlIO *f, const char *mode, SV
#endif /* _PERLIOL_H */
/*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
* ex: set ts=8 sts=4 sw=4 et:
*/