Add a patch from Josh Zenker to fix perl highlight - enscript - GNU Enscript
 (HTM) git clone git://thinkerwim.org/enscript.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit df5c7cf3ece4845b91e4b4849cc05db1ed1c8d6c
 (DIR) parent af89c2ad63ca63befc630adfa0819214ddd99e66
 (HTM) Author: Werner Fink <werner@suse.de>
       Date:   Tue, 23 Jan 2018 15:26:43 +0100
       
       Add a patch from Josh Zenker to fix perl highlight
       
       If a hash/pound appears within parentheses, the rest
       of the line gets highlighted as though it were a comment,
       e.g. if ($#ARGV + 1 ne $EXPECTED_ARGS) {
       
       Signed-off-by: Werner Fink <werner@suse.de>
       Signed-off-by: James Cloos <cloos@jhcloos.com>
       
       Diffstat:
         M states/hl/perl.st                   |      19 +++++++++++++++++++
       
       1 file changed, 19 insertions(+), 0 deletions(-)
       ---
 (DIR) diff --git 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);
       +  }
        }