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.

6 files changed, 8 insertions, 18 deletions

diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t
index 215868265e..22f262bf17 100644
--- a/lib/AnyDBM_File.t
+++ b/lib/AnyDBM_File.t
@@ -13,7 +13,6 @@ use Fcntl;
 
 
 $Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' ||
-	      $^O eq 'dos' ||
 	      $^O eq 'os2' ||
 	      $^O eq 'cygwin');
 
diff --git a/lib/English.t b/lib/English.t
index 35a06caacf..f568d437a4 100644
--- a/lib/English.t
+++ b/lib/English.t
@@ -33,11 +33,7 @@ $ORS = "\n";
 
 {
 	local(*IN, *OUT);
-	if ($^O ne 'dos') {
-	    pipe(IN, OUT);
-	} else {
-	    open(OUT, ">", "en.tmp");
-	}
+        pipe(IN, OUT);
 	select(OUT);
 	$| = 1;
 	print 'ok', '7';
@@ -48,7 +44,6 @@ $ORS = "\n";
 	my $close = close OUT;
 	ok( !($close) == $CHILD_ERROR, '$CHILD_ERROR should be false' );
 
-	open(IN, "<", "en.tmp") if ($^O eq 'dos');
 	my $foo = <IN>;
 	like( $foo, qr/ok 7/, '$OFS' );
 
diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 57b8a39eb7..7b430d79ea 100644
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -11,7 +11,7 @@ BEGIN { *warnif = \&warnings::warnif }
 
 our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-our $VERSION = '1.11';
+our $VERSION = '1.12';
 
 our @fields;
 our ( $st_dev, $st_ino, $st_mode,
@@ -83,7 +83,7 @@ sub _ingroup {
 # component (at which point we might as well just call Perl_cando and
 # have done with it).
     
-if (grep $^O eq $_, qw/os2 MSWin32 dos/) {
+if (grep $^O eq $_, qw/os2 MSWin32/) {
 
     # from doio.c
     *cando = sub { ($_[0][2] & $_[1]) ? 1 : "" };
diff --git a/lib/File/stat.t b/lib/File/stat.t
index 07987a04c2..b5475f9d89 100644
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -172,7 +172,6 @@ SKIP: {
 	}
 
 	main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32';
-	main::skip("dos: inode number is fake on dos", 1) if $^O eq 'dos';
 
 	main::skip("OS/2: inode number is not constant on os/2", 1) if $^O eq 'os2';
 
diff --git a/lib/FileHandle.t b/lib/FileHandle.t
index e71aa12971..c13e772efa 100644
--- a/lib/FileHandle.t
+++ b/lib/FileHandle.t
@@ -57,9 +57,7 @@ ok(! $|, "handle not auto-flushing current output channel");
 autoflush STDOUT 1;
 ok($|, "handle auto-flushing current output channel");
 
-SKIP: {
-    skip "No fork or pipe on DOS", 1 if ($^O eq 'dos');
-
+{
     my ($rd,$wr) = FileHandle::pipe;
     my $non_forking = (
         $^O eq 'VMS' || $^O eq 'os2' || $^O eq 'amigaos' ||
@@ -90,7 +88,6 @@ SKIP: {
             die "fork failed: $!";
         }
     }
-
-} # END: SKIP for dos
+}
 
 ok(!FileHandle->new('', 'r'), "Can't open empty filename");
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 77c9407135..c9fddcbcc1 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -531,7 +531,7 @@ BEGIN {
 use vars qw($VERSION $header);
 
 # bump to X.XX in blead, only use X.XX_XX in maint
-$VERSION = '1.62';
+$VERSION = '1.67';
 
 $header = "perl5db.pl version $VERSION";
 
@@ -1541,7 +1541,7 @@ We then determine what the console should be on various systems:
 
 =cut
 
-    elsif ( $^O eq 'dos' or -e "con" or $^O eq 'MSWin32' ) {
+    elsif ( -e "con" or $^O eq 'MSWin32' ) {
         $console = "con";
     }
 
@@ -8969,7 +8969,7 @@ Just checks the contents of C<$^O> and sets the C<$doccmd> global accordingly.
 =cut
 
 sub setman {
-    $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|dos|amigaos|riscos)\z/s
+    $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|amigaos|riscos)\z/s
       ? "man"         # O Happy Day!
       : "perldoc";    # Alas, poor unfortunates
 } ## end sub setman