Лясны жыхар

19th October 2009

Text

3 способа получить segmentation fault в perl

$ 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