Not really. Try

open(ME, "$0") or die "crap $!";

close(STDERR);
use warnings;


while (<ME>) {
    print;
}
close ME;
[download]

So it would appear there is a bug only if you close(STDERR); and use warnings; before you do a open.

This definetly warrants a look-see by the perl 5 porters (p5p).

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"