diff options
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'; |