Re: [perl #61362] bug report: "perl -c foo" always reports "foosyntax OK" if foo is a directory

On Sun, Dec 14, 2008 at 09:28:39PM -0500, Eric Brine wrote:
> FYI, it could be one of ActivePerl's patches, but Windows actually gets it
> right. Tested with both 5.8.8 and 5.10.0. (perl -v below)
> 
> >perl -c foo
> Can't open perl script "foo": Permission denied

With bleed on linux, I get silent "success":

$ ./perl -c /tmp
/tmp syntax OK

An strace shows that it is ignoring a read error while trying to
read the directory:

    open("/tmp", O_RDONLY|O_LARGEFILE)      = 3
    ...
    read(3, 0x851973c, 4096)                = -1 EISDIR (Is a directory)
    close(3)                                = 0
    write(2, "/tmp syntax OK\n", 15)        = 15


-- 
My Dad used to say 'always fight fire with fire', which is probably why
he got thrown out of the fire brigade.

• [perl #61362] bug report: "perl -c foo" always reports "foo syntax OK" if foo is a directory by Ben Crowell
• Re: [perl #61362] bug report: "perl -c foo" always reports "foo syntax OK" if foo is a directory by Eric Brine
• Re: [perl #61362] bug report: "perl -c foo" always reports "foosyntax OK" if foo is a directory by Dave Mitchell
• Re: [perl #61362] bug report: "perl -c foo" always reports "foo syntax OK" if foo is a directory by Slaven Rezic