File enscript-1.6.4-perl_parens.patch of Package enscript

Index: perl.st
===================================================================
--- states/hl/perl.st	(revision 1)
+++ states/hl/perl.st	(revision 3)
@@ -4,6 +4,7 @@
  *
  * Author: Jim Villani, Logistics Management Institute (jvillani@lmi.org)
  *         perl_pod mods by Gregor Purdy (gregor@focusresearch.com)
+ *         perl_parens by Josh Zenker (josh.zenker@sig.com)
  */
 
 state perl_pod extends Highlight
@@ -58,6 +59,18 @@
   }
 }
 
+state perl_parens extends Highlight
+{
+    /\\\\./ {
+        language_print ($0);
+    }
+    /\)/ {
+        language_print ($0);
+        return;
+    }
+}
+
+
 state perl extends HighlightEntry
 {
   /* Comments. */
@@ -186,6 +199,12 @@
     language_print ($0);
     call (perl_pod);
   }
+
+  /* parentheses */
+  /\(/ {
+      language_print ($0);
+      call (perl_parens);
+  }
 }