Mercurial > pub > Impl
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; |