From: unknown <mauzo@.(none)>
Date: Thu, 26 Mar 2009 15:43:27 +0000 (+0000)
Subject: The DOSish branch of File::stat->cando had its arguments wrong.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0e985b6b1215714dc84881a833eeadc5ef85c455;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {