Thursday, October 8, 2009

perl segfault

Интерпретатор перла не идеален :-)

% perl -e '$x = []; push @$x, eval { $x = 1; return $x }'
Segmentation fault: 11

% perl -e 'print unpack ("p*", "1.2.3.4")'
Segmentation fault: 11

% perl -e 'sub foo { /(?{ return })/ } for (1..100) { foo }'
Segmentation fault: 11

2 comments:

  1. А что должно быть в результате perl -e '$x = []; push @$x, eval { $x = 1; return $x }'?

    ReplyDelete
  2. код сам по себе бессмысленный, proof of concept.

    ReplyDelete