remove extra my $footer
This commit is contained in:
parent
542f685014
commit
dc0a370330
1 changed files with 1 additions and 1 deletions
|
|
@ -75,7 +75,7 @@ The email address for the BCC line.
|
|||
=cut
|
||||
|
||||
sub send {
|
||||
my ($smtp, $message, $from, $footer);
|
||||
my ($smtp, $message, $from);
|
||||
foreach my $option (\$_[0], \$_[1], \$_[3], \$_[4], \$_[5]) {
|
||||
if(${$option}) {
|
||||
if (${$option} =~ /(?:From|To|Date|X-Mailer|Subject|Received|Message-Id)\s*:/is) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue