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]