|
Lines 177-182
sub send_or_die {
Link Here
|
| 177 |
$args->{to} = \@recipients; |
177 |
$args->{to} = \@recipients; |
| 178 |
} |
178 |
} |
| 179 |
|
179 |
|
|
|
180 |
unless ( $args->{from} ) { # don't do it if passed an explicit 'from' param |
| 181 |
my @headers = $self->email->header_str_pairs; |
| 182 |
foreach my $pair ( pairs @headers ) { |
| 183 |
my ( $header, $value ) = @$pair; |
| 184 |
$args->{from} = $value if $header eq 'Sender'; |
| 185 |
} |
| 186 |
|
| 187 |
# Remove the Sender header |
| 188 |
$self->email->header_str_set('Sender'); |
| 189 |
} |
| 190 |
|
| 180 |
$self->SUPER::send_or_die($args); |
191 |
$self->SUPER::send_or_die($args); |
| 181 |
} |
192 |
} |
| 182 |
|
193 |
|
| 183 |
- |
|
|