8 lines
230 B
Plaintext
8 lines
230 B
Plaintext
|
#!/bin/rc
|
||
|
|
|
||
|
|
# aperl:
|
||
|
|
# Executes perl command and alters stderr to produce Acme-friendly error messages
|
||
|
|
# Created 02-JUL-1996, Luther Huffman, lutherh@stratcom.com
|
||
|
|
|
||
|
|
/bin/perl $* |[2] /bin/perl -pe 's/ line (\d+)/:$1 /' >[1=2]
|