fix-uninitialized-concat

   1 Description: Import upstream fix for uninitialized value warning in Mail::SpamAssassin::PerMsgStatus::get_names_of_tests_hit_with_scores()
   2 Origin: https://svn.apache.org/viewvc?view=revision&revision=1685843
   3 Bug: https://bz.apache.org/SpamAssassin/show_bug.cgi?id=7212
   4 Index: spamassassin-3.4.1/lib/Mail/SpamAssassin/PerMsgStatus.pm
   5 ===================================================================
   6 --- spamassassin-3.4.1.orig/lib/Mail/SpamAssassin/PerMsgStatus.pm
   7 +++ spamassassin-3.4.1/lib/Mail/SpamAssassin/PerMsgStatus.pm
   8 @@ -738,7 +738,7 @@ test names and individual scores of the
   9  sub get_names_of_tests_hit_with_scores_hash {
  10    my ($self) = @_;
  11
  12 -  my ($line, %testsscores);
  13 +  my (%testsscores);
  14
  15    #BASED ON CODE FOR TESTSSCORES TAG - KAM 2014-04-24
  16    foreach my $test (@{$self->{test_names_hit}}) {
  17 @@ -763,6 +763,8 @@ sub get_names_of_tests_hit_with_scores {
  18
  19    my ($line, %testsscores);
  20
  21 +  $line = '';
  22 +
  23    #BASED ON CODE FOR TESTSSCORES TAG - KAM 2014-04-24
  24    foreach my $test (sort @{$self->{test_names_hit}}) {
  25      my $score = $self->{conf}->{scores}->{$test};