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 |
- |
|
|