Remove DOS/DJGPP support

DJGPP is a port of the GNU toolchain to 32-bit x86 systems running DOS.
The last known attempt to build Perl on it was on 5.20, which only got
as far as building miniperl.

1 files changed, 0 insertions, 4 deletions

diff --git a/perlio.c b/perlio.c
index 2933cb64f6..b972b2f9cd 100644
--- a/perlio.c
+++ b/perlio.c
@@ -244,11 +244,7 @@ PerlIO_fdupopen(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags)
         const int fd = PerlLIO_dup_cloexec(PerlIO_fileno(f));
         if (fd >= 0) {
             char mode[8];
-#      ifdef DJGPP
-            const int omode = djgpp_get_stream_mode(f);
-#      else
             const int omode = fcntl(fd, F_GETFL);
-#      endif
             PerlIO_intmode2str(omode,mode,NULL);
             /* the r+ is a hack */
             return PerlIO_fdopen(fd, mode);