You're right; I just confirmed this with B::Deparse. Thanks!

$ perl -MO=Deparse
while (my $in = <STDIN>)
{
    print $in;
}
^D
while (defined(my $in = <STDIN>)) {
    print $in;
}
- syntax OK
[download]