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

(-)Mail-SpamAssassin-3.0.4.orig/lib/Mail/SpamAssassin/Message.pm (-1 / +1 lines)
Lines 324-330 Link Here
324 
  my ($self, $hdr) = @_;
 324 
  my ($self, $hdr) = @_;
325
325
326 
  return $self->{pristine_headers} unless $hdr;
 326 
  return $self->{pristine_headers} unless $hdr;
327 
  my(@ret) = $self->{pristine_headers} =~ /^(?:$hdr:[ \t]+(.*\n(?:\s+\S.*\n)*))/mig;
 327 
  my(@ret) = $self->{pristine_headers} =~ /^\Q$hdr\E:[ \t]+(.*?\n(?![ \t]))/smgi;
328 
  if (@ret) {
 328 
  if (@ret) {
329 
    return wantarray ? @ret : $ret[-1];
 329 
    return wantarray ? @ret : $ret[-1];
330 
  }
 330 
  }

Return to bug 133416