--- Parser.pm 2011-06-07 01:59:17.000000000 +0200 +++ Parser-TJ-bugfix-7107.pm 2014-11-29 19:58:03.000000000 +0100 @@ -505,6 +505,11 @@ elsif ($token eq 'version') { $eval .= $Mail::SpamAssassin::VERSION." "; } +# TJ ---------- + elsif ($token eq 'perl_version') { + $eval .= $]." "; + } +# ------------- elsif ($token =~ /^\w[\w\:]+$/) { # class name $eval .= '"' . untaint_var($token) . '" '; }