http://qs321.pair.com?node_id=518216

I know variants of the following bug have been discussed in the Monastery recently, but I didn't find this particular one. My apologies in advance if I missed it.

Spot the bug:

sub foo { my $hashref = shift; while ( my ( $key, $value ) = each %$hashref ) { return if sometest( $key ); frobnicate( $key, $value ); } }

BTW, there's nothing arcane about this bug. It's vanilla Perl, but it's easy to miss.

Update: The original title of this thread ("Buglet") was confusing, so, by popular demand, I changed it. I hope the new title is an improvement.

the lowliest monk