diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/perliol.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/perliol.h | 14 |
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: */ |