Yup. Even worse, I posted this in the chatbox and asked why it wasn't working:

my $thing;
while $something (@somethingelse) {
    my $thing;
    ....;
    print $thing;
}
[download]

At first I couldn't understand why it was overwriting $thing, then I asked the CB why I wasn't getting a warning for overriding $thing. That was a bad code day. :)

____________________
Jeremy
I didn't believe in evil until I dated it.