From d58bdc29c73c9a22281374aca84e94dd24d9e506 Mon Sep 17 00:00:00 2001
From: Joerg Wunsch <joerg@FreeBSD.org>
Date: Tue, 15 Oct 1996 18:58:45 +0000
Subject: [PATCH] Wow!, i finally found a usable vgrind definition for Perl.

---
 usr.bin/vgrind/vgrind.1      |  6 ++++--
 usr.bin/vgrind/vgrindefs.src | 11 +++++++++++
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/usr.bin/vgrind/vgrind.1 b/usr.bin/vgrind/vgrind.1
index 352ba7eea8ba..50f52e880edb 100644
--- a/usr.bin/vgrind/vgrind.1
+++ b/usr.bin/vgrind/vgrind.1
@@ -137,9 +137,11 @@ or the default),
 .Pq Fl l Ns Ar yacc ,
 .Tn LISP
 .Pq Fl l Ns Ar isp ,
-and
 .Tn ICON
-.Pq Fl l Ns Ar I .
+.Pq Fl l Ns Ar I ,
+and
+.Tn PERL
+.Pq Fl l Ns Ar perl .
 .It Fl n
 forces no keyword bolding
 .It Fl p Ar postproc
diff --git a/usr.bin/vgrind/vgrindefs.src b/usr.bin/vgrind/vgrindefs.src
index 91ef58fed4db..becf7732ae98 100644
--- a/usr.bin/vgrind/vgrindefs.src
+++ b/usr.bin/vgrind/vgrindefs.src
@@ -144,3 +144,14 @@ C++|c++:\
 	ifdef ifndef include undef defined\
 	class const delete friend inline new operator overload private\
 	protected public virtual:
+#
+# Hack alert: defining function calls as `alternate comments' (ab/ae) seems
+# to be the only way to avoid major confusion inside vfontedpr for calls like:
+#   &packagename'function;
+#
+Perl|perl|pl:\
+	:pb=sub\d\p\d:bb={:be=}:cb=#:ce=$:tl:\
+	:ab=&:ae=(;|\d|,):\
+	:sb=":se=(\e"|$):lb=':le=(\e'|$):\
+	:kw=do if unless while until else elsif for foreach continue\
+	next redo sub last goto return die exit require: