Ready for testing

[enscript.git] / states / hl / perl.st

diff --git a/states/hl/perl.st b/states/hl/perl.st
index 418a1463d9a9239e27f9ca7bf5124bbec1a703d8..161dae131a7850e9a591ec2a1a94ccab35b1e84d 100644 (file)
--- a/states/hl/perl.st
+++ b/states/hl/perl.st
@@ -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_bquot_string extends Highlight
   }
 }
 
+state perl_parens extends Highlight
+{
+    /\\\\./ {
+        language_print ($0);
+    }
+    /\)/ {
+        language_print ($0);
+        return;
+    }
+}
+
+
 state perl extends HighlightEntry
 {
   /* Comments. */
@@ -186,6 +199,12 @@ state perl extends HighlightEntry
     language_print ($0);
     call (perl_pod);
   }
+
+  /* parentheses */
+  /\(/ {
+      language_print ($0);
+      call (perl_parens);
+  }
 }
 
 \f