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
UPDATE:
You are correct by increasing the number to 100_000, the top two crash as well.
Evan Carroll
www.EvanCarroll.com