Not all of them are fixed, the top two tested negative, with Perl 5.8.7; however, the bottom one produced this.

perl -e "map warn(+()), ('')x100;"
...
...
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
Segmentation fault
[download]

UPDATE:
You are correct by increasing the number to 100_000, the top two crash as well.