title: Using a Hash as a reference is deprecated - Perl
body: <p>I am trying to install scmbug on my windows platform. 
  I am getting Hash as a reference error in the below method. see the "HERE" annotation to see where it is happening. </p>
  
  <p>Should i replace every %mail with $mail in it.</p>
  
  <p>I tried this but got other errors. Saying </p>
  
  <p>Global symbol "$mail" requires explicit package name</p>
  
  <p>how to get this fixed ?</p>
  
  <pre><code>sub mail_notification_send_mail {
     my $self = shift;
     my ($request, $subject, $message, $mailing_list) = ( @_ );
     my %mail;
  
     # Set values. This permits users to override the default behavior
     # of Mail::Sendmail
     %mail = \%{ $request-&gt;{ policies }-&gt;{ mail_notification }-&gt;{ mail_settings } };
     %mail-&gt;{ 'X-Mailer' } = "Mail::Sendmail version $Mail::Sendmail::VERSION";  HERE
     %mail-&gt;{ Subject } = $subject; HERE
     %mail-&gt;{ Message } = $message; HERE
  
     #
     # Since we just reset %mail to values, we haven't really picked up
     # the To,From,Reply-To that were computed. We do this next
     #
  
     # Don't blindly ignore the To list that was computed
     my $mailing_list_to = $self-&gt;emails_to_csv( $mailing_list-&gt;{ To } );
     %mail-&gt;{ To } = $mailing_list_to; HERE
  
     # Don't blindly ignore the From list that was computed
     my $mailing_list_from = $self-&gt;emails_to_csv( $mailing_list-&gt;{ From } );
     %mail-&gt;{ From } = $mailing_list_from; HERE
  
     # Don't blindly ignore the 'Reply-To' list that was computed
     my $mailing_list_replyto = $self-&gt;emails_to_csv( $mailing_list-&gt;{ 'Reply-To' } );
     %mail-&gt;{ 'Reply-To' } = $mailing_list_replyto; HERE
  
  
     if ( !sendmail(%mail) ) {
     my $msg = "Sending mail on " . $request-&gt;{ name } .
         " failed. Log error was:\n" . $Mail::Sendmail::error . "\n";
     $request-&gt;add_result(1, $msg);
     }
  }
  </code></pre>
  
  <p>Thanks</p>