a2ps hangs while printing a Perl source

[Franck Lombardi]

Hi,

a2ps, 4.13 and 4.49 hangs with Perl source.
The reason is in perl.ssh


    # Substitution and transliteration:
    # two regexps with a single char as delimiter
    (/(s|tr)/                   # 1. The command: `tr' or `s'
     /([[:punct:]])/            # 2. The delimiter
     /(/                        # 3. The *two* regexps
     /(.|\\\\.)*/               #   First regexp
     /\\2/                      #   Separator
     /(.|\\\\.)*/               #   Second Regexp
     /)/                        #
     /\\2/                      # Closer
     \1 Keyword_strong, \2 Plain, \3 Plain, \2 Plain),

But I don't known Perl language, someone can rewrite this rule ?

-- 
Franck Lombardi
EPITA Promotion 2004
fingerprint = 5C93 74B7 4E23 F986 7502  EC29 87A2 CB3A 5C96 EA72