perl-sendmail-pmilter/Context.pm.patch

   1 --- Sendmail-PMilter-0.97/lib/Sendmail/PMilter/Context.pm.orig  2009-02-24 01:38:20.000000000 +0200
   2 +++ Sendmail-PMilter-0.97/lib/Sendmail/PMilter/Context.pm       2009-04-13 17:48:58.408517322 +0300
   3 @@ -465,7 +465,7 @@
   4         my $this = shift;
   5         my $key = shift;
   6
   7 -       foreach my $code (SMFIC_RCPT, SMFIC_MAIL, SMFIC_HELO, SMFIC_CONNECT) {
   8 +       foreach my $code (SMFIC_BODYEOB, SMFIC_BODY, SMFIC_EOH, SMFIC_HEADER, SMFIC_RCPT, SMFIC_MAIL, SMFIC_HELO, SMFIC_CONNECT) {
   9                 my $val = $this->{symbols}{$code}{$key};
  10
  11                 return $val if defined($val);