diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1998-03-26 10:11:50 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 16:03:37 +0000 |
| commit | 17f28c40fa08b585b95d4a2531b1cd975d11e986 (patch) | |
| tree | a3848d6befdc55f7cc1a326e0b4b19b31ad09869 /perlsdio.h | |
| parent | ec2ab091f034a27dfbd7d815fad4e3e670b743e9 (diff) | |
| download | perl-17f28c40fa08b585b95d4a2531b1cd975d11e986.tar.gz | |
Next wave of _63 VMS patches
p4raw-id: //depot/perl@854
Diffstat (limited to 'perlsdio.h')
| -rw-r--r-- | perlsdio.h | 7 |
1 files changed, 6 insertions, 1 deletions
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 |