diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-08-30 22:40:46 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2013-09-21 08:47:40 -0300 |
| commit | 5617ce2287aaef967c1623b87198200c16172f40 (patch) | |
| tree | e17cbec5c2794c1ace5e06e9cb5b04a32122fc96 /doio.c | |
| parent | 5c42443f0f18aa5023877a82cbe784656b3a7b6c (diff) | |
| download | perl-5617ce2287aaef967c1623b87198200c16172f40.tar.gz | |
Remove the ifdefs for ULTRIX_STDIO_BOTCH
Not only has Ultrix been long out of support, this ifdef was
working around a bug particular to Ultrix 1.2.
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -1052,10 +1052,6 @@ Perl_do_tell(pTHX_ GV *gv) PERL_ARGS_ASSERT_DO_TELL; if (io && (fp = IoIFP(io))) { -#ifdef ULTRIX_STDIO_BOTCH - if (PerlIO_eof(fp)) - (void)PerlIO_seek(fp, 0L, 2); /* ultrix 1.2 workaround */ -#endif return PerlIO_tell(fp); } report_evil_fh(gv); @@ -1071,10 +1067,6 @@ Perl_do_seek(pTHX_ GV *gv, Off_t pos, int whence) PerlIO *fp; if (io && (fp = IoIFP(io))) { -#ifdef ULTRIX_STDIO_BOTCH - if (PerlIO_eof(fp)) - (void)PerlIO_seek(fp, 0L, 2); /* ultrix 1.2 workaround */ -#endif return PerlIO_seek(fp, pos, whence) >= 0; } report_evil_fh(gv); |