bug_771408_perl_version

   1 upstream fix for bug #771408
   2 Index: spamassassin-3.4.1/lib/Mail/SpamAssassin/Conf/Parser.pm
   3 ===================================================================
   4 --- spamassassin-3.4.1.orig/lib/Mail/SpamAssassin/Conf/Parser.pm
   5 +++ spamassassin-3.4.1/lib/Mail/SpamAssassin/Conf/Parser.pm
   6 @@ -536,6 +536,9 @@ sub handle_conditional {
   7      elsif ($token eq 'perl_version') {
   8        $eval .= $]." ";
   9      }
  10 +    elsif ($token eq 'perl_version') {
  11 +      $eval .= $]." ";
  12 +    }
  13      elsif ($token =~ /^\w[\w\:]+$/) { # class name
  14        my $u = untaint_var($token);
  15        $eval .= '"' . $u . '" ';