diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-07-16 17:32:16 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2021-11-02 18:01:42 +0000 |
| commit | 4457f3fc414965b3f281e91fc2e24332a7149345 (patch) | |
| tree | 35f0c3c918d5d42cc3c65e6652eb389a3970bbd5 /lib/File | |
| parent | b53d6a00df0da96446042ea510b013d59cf81109 (diff) | |
| download | perl-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 'lib/File')
| -rw-r--r-- | lib/File/stat.pm | 4 | ||||
| -rw-r--r-- | lib/File/stat.t | 1 |
2 files changed, 2 insertions, 3 deletions
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'; |