The DOSish branch of File::stat->cando had its arguments wrong.

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 630fae1..bdf3aad 100644 (file)
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -78,7 +78,7 @@ sub _ingroup {
 if (grep $^O eq $_, qw/os2 MSWin32 dos/) {
 
     # from doio.c
-    *cando = sub { ($_[0] & $_[2][2]) ? 1 : "" };
+    *cando = sub { ($_[0][2] & $_[1]) ? 1 : "" };
 }
 else {