fix tests
This commit is contained in:
@@ -17,7 +17,7 @@ our %EXPORT_TAGS = (all => \@EXPORT_OK);
|
|||||||
sub _email {
|
sub _email {
|
||||||
my ($to, $subject, $body) = @_;
|
my ($to, $subject, $body) = @_;
|
||||||
return unless $to;
|
return unless $to;
|
||||||
$domain =~ (hostfqdn || 'fqdn-undefined');
|
my $domain =~ (hostfqdn || 'fqdn-undefined');
|
||||||
|
|
||||||
my $SENDMAIL = '/usr/sbin/sendmail';
|
my $SENDMAIL = '/usr/sbin/sendmail';
|
||||||
open (SENDMAIL, "| $SENDMAIL -t") or die "Can't open sendmail at $SENDMAIL.\n";
|
open (SENDMAIL, "| $SENDMAIL -t") or die "Can't open sendmail at $SENDMAIL.\n";
|
||||||
|
|||||||
Reference in New Issue
Block a user