[perl #117253] [PATCH] utils/perlbug.PL: recognize mstmtp as a valid sendmail

# New Ticket Created by  Ramkumar Ramachandra 
# Please include the string:  [perl #117253]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=117253 >



This is a bug report for perl from artagnon@gmail.com,
generated with the help of perlbug 1.39 running under perl 5.17.10.

>From 2bcc2d67fcfdc82f6927c062e47607e2ddb8abc0 Mon Sep 17 00:00:00 2001
From: Ramkumar Ramachandra <artagnon@gmail.com>
Date: Thu, 21 Mar 2013 14:43:43 +0530
Subject: [PATCH] utils/perlbug.PL: recognize mstmtp as a valid sendmail
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="------------1.8.2.64.gddf7ded.dirty"

This is a multi-part message in MIME format.
--------------1.8.2.64.gddf7ded.dirty
Content-Type: text/plain; charset=UTF-8; format=fixed
Content-Transfer-Encoding: 8bit


perlbug fails to use the modern sendmail-compatible alternative,
msmtp.  Fix _probe_for_sendmail to look for the msmtp binary in
addition to sendmail binaries.

Signed-off-by: Ramkumar Ramachandra <artagnon@gmail.com>
---
 utils/perlbug.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


--------------1.8.2.64.gddf7ded.dirty
Content-Type: text/x-patch; name="0001-utils-perlbug.PL-recognize-mstmtp-as-a-valid-sendmai.patch"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="0001-utils-perlbug.PL-recognize-mstmtp-as-a-valid-sendmai.patch"

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index bf86670..42f5d6c 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -1076,7 +1076,7 @@ sub _send_message_mailsend {
 
 sub _probe_for_sendmail {
     my $sendmail = "";
-    for (qw(/usr/lib/sendmail /usr/sbin/sendmail /usr/ucblib/sendmail)) {
+    for (qw(/usr/lib/sendmail /usr/sbin/sendmail /usr/ucblib/sendmail /usr/bin/msmtp)) {
         $sendmail = $_, last if -e $_;
     }
     if ( $^O eq 'os2' and $sendmail eq "" ) {

--------------1.8.2.64.gddf7ded.dirty--


---
Flags:
    category=core
    severity=medium
---
Site configuration information for perl 5.17.10:

Configured by artagnon at Thu Mar 21 13:15:07 IST 2013.

Summary of my perl5 (revision 5 version 17 subversion 10) configuration:
  Derived from: 93f31ee9fb6e815cac5df15822755aa4d75c91a9
  Platform:
    osname=linux, osvers=3.7.9-2-arch, archname=x86_64-linux
    uname='linux luneth 3.7.9-2-arch #1 smp preempt mon feb 25 12:04:25 cet 2013 x86_64 gnulinux '
    config_args='-Dusedevel -des -Dprefix=/home/artagnon/localperl'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.7.2', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /lib/../lib /usr/lib/../lib /lib /usr/lib /lib64 /usr/lib64
    libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=/lib/libc-2.17.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.17'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector'

Locally applied patches:
    

---
@INC for perl 5.17.10:
    /home/artagnon/.perl5/lib/perl5
    /home/artagnon/localperl/lib/site_perl/5.17.10/x86_64-linux
    /home/artagnon/localperl/lib/site_perl/5.17.10
    /home/artagnon/localperl/lib/5.17.10/x86_64-linux
    /home/artagnon/localperl/lib/5.17.10
    .

---
Environment for perl 5.17.10:
    HOME=/home/artagnon
    LANG=en_US.utf8
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/artagnon/.perl5/bin:/home/artagnon/.rbenv/shims:/home/artagnon/bin:/home/artagnon/bin/depot_tools:/home/artagnon/.python/bin:/home/artagnon/.cabal/bin:/home/artagnon/.rbenv/bin:/home/artagnon/.ruby/bin:/home/artagnon/.local/bin:/home/artagnon/.android/sdk/tools:/home/artagnon/.android/sdk/platform-tools:/bin:/usr/local/bin:/usr/bin:/usr/bin/core_perl:/usr/bin/vendor_perl:/usr/sbin:/sbin
    PERL5LIB=/home/artagnon/.perl5/lib/perl5:
    PERL_BADLANG (unset)
    PERL_LOCAL_LIB_ROOT=:/home/artagnon/.perl5
    PERL_MB_OPT=--install_base /home/artagnon/.perl5
    PERL_MM_OPT=INSTALL_BASE=/home/artagnon/.perl5
    SHELL=/bin/zsh

• [perl #117253] [PATCH] utils/perlbug.PL: recognize mstmtp as a valid sendmail by Ramkumar Ramachandra