S_del_body is sufficiently small that inlining it is a space win.
[p5sagit/p5-mst-13.2.git] / plan9 / aperl
1 #!/bin/rc
2
3 # aperl:   
4 # Executes perl command and alters stderr to produce Acme-friendly error messages
5 # Created 02-JUL-1996, Luther Huffman,  lutherh@stratcom.com
6
7 /bin/perl $* |[2]  /bin/perl -pe 's/ line (\d+)/:$1/'  >[1=2]