From 17f28c40fa08b585b95d4a2531b1cd975d11e986 Mon Sep 17 00:00:00 2001 From: Charles Bailey Date: Thu, 26 Mar 1998 10:11:50 -0500 Subject: Next wave of _63 VMS patches p4raw-id: //depot/perl@854 --- perlsdio.h | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perlsdio.h') diff --git a/perlsdio.h b/perlsdio.h index 9825f8ed92..a539a0a3d9 100644 --- a/perlsdio.h +++ b/perlsdio.h @@ -55,7 +55,12 @@ #define PerlIO_clearerr(f) clearerr(f) #define PerlIO_flush(f) Fflush(f) #define PerlIO_tell(f) ftell(f) -#define PerlIO_seek(f,o,w) fseek(f,o,w) +#if defined(VMS) && !defined(__DECC) + /* Old VAXC RTL doesn't reset EOF on seek; Perl folk seem to expect this */ +# define PerlIO_seek(f,o,w) (((f) && (*f) && ((*f)->_flag &= ~_IOEOF)),fseek(f,o,w)) +#else +# define PerlIO_seek(f,o,w) fseek(f,o,w) +#endif #ifdef HAS_FGETPOS #define PerlIO_getpos(f,p) fgetpos(f,p) #endif -- cgit v1.2.1