summaryrefslogtreecommitdiff
path: root/acme/bin/Perl
diff options
context:
space:
mode:
authorcinap_lenrek <cinap_lenrek@localhost>2011-04-14 17:27:24 +0000
committercinap_lenrek <cinap_lenrek@localhost>2011-04-14 17:27:24 +0000
commita150899221a5badff9740703b754f901b4f52762 (patch)
tree3d6911874b0ee763e40490d04f56fc09d89ccfa6 /acme/bin/Perl
parent71cfa9c637386ebe00fc6d1bf6215db6657559f4 (diff)
downloadplan9front-a150899221a5badff9740703b754f901b4f52762.tar.xz
fill /acme
Diffstat (limited to 'acme/bin/Perl')
-rwxr-xr-xacme/bin/Perl7
1 files changed, 7 insertions, 0 deletions
diff --git a/acme/bin/Perl b/acme/bin/Perl
new file mode 100755
index 000000000..c3544bcb6
--- /dev/null
+++ b/acme/bin/Perl
@@ -0,0 +1,7 @@
+#!/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]