but, based on what you've said, it appears that the real code is different from what they posted on that page.

It is possible for the code to run correctly even with that nasty bug.

It definitely does not hinder a translation to Perl. The direct translation «sub { my $x; ... return $x; }» isn't buggy.