I missed a s/stat_cando/cando/ in File::stat.

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