|
Lines 181-187
Link Here
|
| 181 |
|
181 |
|
| 182 |
sub get_pristine_header { |
182 |
sub get_pristine_header { |
| 183 |
my ($self, $hdr) = @_; |
183 |
my ($self, $hdr) = @_; |
| 184 |
my(@ret) = $self->{headers_pristine} =~ /^(?:$hdr:[ ]+(.*\n(?:\s+\S.*\n)*))/mig; |
184 |
my @ret; |
|
|
185 |
my @hdrs = split /$hdr:[ ]+/, $self->{headers_pristine}; |
| 186 |
for (1 .. $#hdrs){ |
| 187 |
my (@lines) = split /\n/, $hdrs[$_]; |
| 188 |
my $line = ''; |
| 189 |
foreach(@lines){ #line-by-line |
| 190 |
if($_ =~ /^[^\s]/){ #end of hdr |
| 191 |
last; |
| 192 |
} |
| 193 |
$line .= "$_\n"; |
| 194 |
} |
| 195 |
push(@ret, $line); |
| 196 |
} |
| 197 |
|
| 185 |
if (@ret) { |
198 |
if (@ret) { |
| 186 |
return wantarray ? @ret : $ret[0]; |
199 |
return wantarray ? @ret : $ret[0]; |
| 187 |
} |
200 |
} |
