fixed for newer perl
[tridge/junkcode.git] / segv.c
1 main()
2 {
3         *(int *)0 = 1;
4 }