[Moscow.pm] Нашёл ошибку в Perl regexp

[Сергей Мартынов]

>> Perl на всех платформах при трансляции (!) программки

> Сергей, а что значит "трансляция (!)" программы на Perl?

Видимо, имеется в виду стадия компиляции. А действительно, забавный баг:

$ perl -v
This is perl, v5.8.8 built for i386-freebsd-64int
$ perl -e 'BEGIN { print 1 } map{while(1){}}@a; END { print 2 }'
12

Но

% perl -v
This is perl, v5.8.2 built for i386-freebsd
% perl -e 'BEGIN { $|++; print 1 } map{while(1){}}@a; END { print 2 }'
1^C

- виснет :)


-- 
С уважением, Сергей Мартынов.