summaryrefslogtreecommitdiff
path: root/doio.c
diff options
context:
space:
mode:
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2020-07-16 17:32:16 +0100
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2021-11-02 18:01:42 +0000
commit4457f3fc414965b3f281e91fc2e24332a7149345 (patch)
tree35f0c3c918d5d42cc3c65e6652eb389a3970bbd5 /doio.c
parentb53d6a00df0da96446042ea510b013d59cf81109 (diff)
downloadperl-4457f3fc414965b3f281e91fc2e24332a7149345.tar.gz
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.
Diffstat (limited to 'doio.c')
-rw-r--r--doio.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/doio.c b/doio.c
index 76f2e0e84b..9233b9a1e1 100644
--- a/doio.c
+++ b/doio.c
@@ -1389,9 +1389,6 @@ Perl_nextargv(pTHX_ GV *gv, bool nomagicopen)
if ((PerlLIO_stat(SvPVX_const(sv),&statbuf) >= 0
&& statbuf.st_dev == filedev
&& statbuf.st_ino == fileino)
-#ifdef DJGPP
- || ((_djstat_fail_bits & _STFAIL_TRUENAME)!=0)
-#endif
)
{
Perl_ck_warner_d(aTHX_ packWARN(WARN_INPLACE),
@@ -3311,9 +3308,6 @@ Perl_vms_start_glob
sv_setpv(tmpcmd, "for a in ");
sv_catsv(tmpcmd, tmpglob);
sv_catpvs(tmpcmd, "; do echo \"$a\\0\\c\"; done |");
-# elif defined(DJGPP)
- sv_setpv(tmpcmd, "/dev/dosglob/"); /* File System Extension */
- sv_catsv(tmpcmd, tmpglob);
# else
sv_setpv(tmpcmd, "perlglob ");
sv_catsv(tmpcmd, tmpglob);