From a150899221a5badff9740703b754f901b4f52762 Mon Sep 17 00:00:00 2001
From: cinap_lenrek <cinap_lenrek@localhost>
Date: Thu, 14 Apr 2011 17:27:24 +0000
Subject: fill /acme

---
 acme/bin/Perl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100755 acme/bin/Perl

(limited to 'acme/bin/Perl')

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]
-- 
cgit v1.2.3