diff options
| author | unknown <mauzo@.(none)> | 2009-03-26 15:43:27 +0000 |
|---|---|---|
| committer | unknown <mauzo@.(none)> | 2009-03-26 15:43:27 +0000 |
| commit | 0e985b6b1215714dc84881a833eeadc5ef85c455 (patch) | |
| tree | 7e1c658d562be27fd217636800aad4fe2a2dcd6e /lib/File/stat.pm | |
| parent | fa7f7498c3a31a48b9bcf12853629ed5411ddb45 (diff) | |
| download | perl-0e985b6b1215714dc84881a833eeadc5ef85c455.tar.gz | |
The DOSish branch of File::stat->cando had its arguments wrong.
Diffstat (limited to 'lib/File/stat.pm')
| -rw-r--r-- | lib/File/stat.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/stat.pm b/lib/File/stat.pm index 630fae1c5e..bdf3aad52a 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 { |