remove extra my $footer

This commit is contained in:
Colin Kuskie 2005-11-18 17:16:33 +00:00
parent 542f685014
commit dc0a370330

View file

@ -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) {