Remove the ifdefs for ULTRIX_STDIO_BOTCH
authorBrian Fraser <fraserbn@gmail.com>
Sat, 31 Aug 2013 01:40:46 +0000 (22:40 -0300)
committerBrian Fraser <fraserbn@gmail.com>
Sat, 21 Sep 2013 11:47:40 +0000 (08:47 -0300)
Not only has Ultrix been long out of support, this ifdef was
working around a bug particular to Ultrix 1.2.

doio.c

diff --git a/doio.c b/doio.c
index f2c3752..5223654 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -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);