From 4457f3fc414965b3f281e91fc2e24332a7149345 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <ilmari@ilmari.org>
Date: Thu, 16 Jul 2020 17:32:16 +0100
Subject: 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.
---
 installperl | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

(limited to 'installperl')

diff --git a/installperl b/installperl
index b528c10aa6..e2006c5561 100755
--- a/installperl
+++ b/installperl
@@ -137,11 +137,6 @@ my %archpms = (
     lib => 1,
 );
 
-if ($^O eq 'dos') {
-    push(@scripts,'djgpp/fixpmain');
-    $archpms{config} = $archpms{filehand} = 1;
-}
-
 if ((-e "testcompile") && (defined($ENV{'COMPILE'}))) {
     push(@scripts, map("$_.exe", @scripts));
 }
@@ -283,17 +278,13 @@ if ($Is_VMS) {
         chmod(0755, "$installbin/$ndbg$perl$exe_ext");
     }
 }
-elsif ($^O ne 'dos') {
+else {
     safe_unlink("$installbin/$perl_verbase$ver$exe_ext");
     copy("perl$exe_ext", "$installbin/$perl_verbase$ver$exe_ext");
     strip("$installbin/$perl_verbase$ver$exe_ext");
     fix_dep_names("$installbin/$perl_verbase$ver$exe_ext");
     chmod(0755, "$installbin/$perl_verbase$ver$exe_ext");
 }
-else {
-    safe_unlink("$installbin/$perl.exe");
-    copy("perl.exe", "$installbin/$perl.exe");
-}
 
 # Install library files.
 
@@ -376,7 +367,7 @@ if ($Is_W32) { #linking lib isn't made in root but in CORE on Win32
 # Install main perl executables
 # Make links to ordinary names if installbin directory isn't current directory.
 
-if (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VMS) {
+if (! $versiononly && ! samepath($installbin, '.') && ! $Is_VMS) {
     safe_unlink("$installbin/$perl$exe_ext", "$installbin/suid$perl$exe_ext");
     if ($^O eq 'vos') {
 	# VOS doesn't support hard links, so use a symlink.
@@ -390,7 +381,7 @@ if (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VM
 
 # For development purposes it can be very useful to have multiple perls
 # build for different "architectures" (eg threading or not) simultaneously.
-if ($opts{archname} && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VMS) {
+if ($opts{archname} && ! samepath($installbin, '.') && ! $Is_VMS) {
     my $archperl = "$perl_verbase$ver-$Config{archname}$exe_ext";
     safe_unlink("$installbin/$archperl");
     if ($^O eq 'vos') {
@@ -450,7 +441,7 @@ sub script_alias {
     my ($installscript, $orig, $alias, $scr_ext) = @_;
 
     safe_unlink("$installscript/$alias$scr_ext");
-    if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') {
+    if ($Is_VMS or $^O eq 'transit') {
 	copy("$installscript/$orig$scr_ext",
 	     "$installscript/$alias$scr_ext");
     } elsif ($^O eq 'vos') {
-- 
cgit v1.2.1