View | Details | Raw Unified | Return to bug 7107
Collapse All | Expand All

(-)lib/Mail/SpamAssassin/Conf/Parser.pm (+3 lines)
Lines 533-538 Link Here
533 
    elsif ($token eq 'version') {
 533 
    elsif ($token eq 'version') {
534 
      $eval .= $Mail::SpamAssassin::VERSION." ";
 534 
      $eval .= $Mail::SpamAssassin::VERSION." ";
535 
    }
 535 
    }
536 
    elsif ($token eq 'perl_version') {
537 
      $eval .= $]." ";
538 
    }
536 
    elsif ($token =~ /^\w[\w\:]+$/) { # class name
 539 
    elsif ($token =~ /^\w[\w\:]+$/) { # class name
537 
      my $u = untaint_var($token);
 540 
      my $u = untaint_var($token);
538 
      $eval .= '"' . $u . '" ';
 541 
      $eval .= '"' . $u . '" ';

Return to bug 7107