diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-08 00:14:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-08 00:14:13 +0000 |
| commit | ba3eb2af450c2577c20a691fb686a5e02955c48b (patch) | |
| tree | a8cf1145dc0c922547f90f92d9c444715752d512 /perlsdio.h | |
| parent | 00dc2f4f23da07658d2634f904ac3a098aaa4153 (diff) | |
| parent | 8c9208bc5764dada175aceff9d0b1938978d7db6 (diff) | |
| download | perl-ba3eb2af450c2577c20a691fb686a5e02955c48b.tar.gz | |
[asperl] integrate mainline changes
p4raw-id: //depot/asperl@884
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 |