|There's more than one way to do things|
Re^3: Inline.pm and untaintingby Just in (Sexton)
|on Jul 29, 2009 at 08:11 UTC||Need Help??|
I'm surprised that env_untaint was written that way. 0022 as a umask is 755 permission wise which gives the idea that r and x for group members and everyone else actually works for Windows in a Linux/UNIX way.
Reading stat under perlfunc years ago led me to believe that only a handful of the 13 elements actually worked under Windows. Looking at it now hints that there maybe some cause for doubt - "Not all fields are supported on all filesystem types".
The concept of group and everyone for Windows does work under domains but not directories, which is why stat returns 0777 even on readonly.
Shortcoming of stat - I'd say so, but it's not actually since we're given warning. To get directories that you can't write to I'd use Win32::File soand not ((stat($_)) & 0022)
becomesand ( $attr & READONLY )
I was going to go through the bitwise & permissions that would yield 0 with 0022, but I actually came on PM to look for something else and now it's home time :p
Just inP.S. your box is fine