hmh... It seems the patch was not uploaded (I get only an 'a' without a
link). Anyway, here it is, inlined:
Index: libemail-send-perl/lib/Email/Send/Qmail.pm
===================================================================
--- libemail-send-perl.orig/lib/Email/Send/Qmail.pm 2008-03-21
19:57:46.000000000 -0600
+++ libemail-send-perl/lib/Email/Send/Qmail.pm 2008-03-21
19:58:05.000000000 -0600
@@ -21,7 +21,9 @@
my $class = shift;
my $sendmail;
- for my $dir (File::Spec->path) {
+ my @path = File::Spec->path;
+ push @path, '/usr/sbin' unless grep m!^/usr/sbin/?$!, @path
+ for my $dir (@path) {
if ( -x "$dir/$QMAIL" ) {
$sendmail = "$dir/$QMAIL";
last;
Index: libemail-send-perl/lib/Email/Send/Sendmail.pm
===================================================================
--- libemail-send-perl.orig/lib/Email/Send/Sendmail.pm 2008-03-21
19:56:57.000000000 -0600
+++ libemail-send-perl/lib/Email/Send/Sendmail.pm 2008-03-21
19:57:39.000000000 -0600
@@ -23,7 +23,9 @@
return $SENDMAIL if defined $SENDMAIL;
my $sendmail;
- for my $dir (File::Spec->path) {
+ my @path = File::Spec->path;
+ push @path, '/usr/sbin' unless grep m!^/usr/sbin/?$!, @path
+ for my $dir (@path) {
if ( -x "$dir/sendmail" ) {
$sendmail = "$dir/sendmail";
last;
