[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
# Modified May 2020, David Romano, unobe@cpan.org

/bin/perl-_P9P_VERSION $* |[2]  /bin/perl-_P9P_VERSION -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
a123eb89	6	# Modified May 2020, David Romano, unobe@cpan.org
396e9e6f	7
a123eb89	8	/bin/perl-_P9P_VERSION $* \|[2] /bin/perl-_P9P_VERSION -pe 's/ line (\d+)/:$1/' >[1=2]