From 4457f3fc414965b3f281e91fc2e24332a7149345 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= 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. --- lib/File/stat.pm | 4 ++-- lib/File/stat.t | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'lib/File') 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'; -- cgit v1.2.1