comparison Lib/IMPL/Mailer.pm @ 173:aaab45153411

minor bugfixes
author sourcer
date Wed, 14 Sep 2011 18:59:01 +0400
parents df6b4f054957
children
comparison
equal deleted inserted replaced
172:068acfe903c3 173:aaab45153411
30 } 30 }
31 31
32 sub _find_sendmail { 32 sub _find_sendmail {
33 return $SENDMAIL if defined $SENDMAIL; 33 return $SENDMAIL if defined $SENDMAIL;
34 34
35 my @path = split /:/, $ENV{PATH}; 35 my @path = split (/:/, $ENV{PATH});
36 my $sendmail; 36 my $sendmail;
37 for (@path) { 37 for (@path) {
38 if ( -x "$_/sendmail" ) { 38 if ( -x "$_/sendmail" ) {
39 $sendmail = "$_/sendmail"; 39 $sendmail = "$_/sendmail";
40 last; 40 last;