Re: readdir and while - magic?

[jmcnamara]

perl adds a defined to the while so you get something like this:

    $ perl -MO=Deparse -e 'while($file = readdir(D)) { print $file; }'

    while (defined($file = readdir D)) {
        print $file;
    }
    -e syntax OK

This is explained in more detail at A most obscure bug.

--
John.