[perl5.git] / plan9 / aperl

#!/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]
Commit	Line	Data
396e9e6f	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]