From: Stas Bekman <stas@stason.org>
Date: Tue, 26 Mar 2002 21:12:49 +0000 (+0800)
Subject: [patch utils/perlbug] subject header setting problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=afc5e478890365dd7c9ba773c67c2fd1eec39103;p=p5sagit%2Fp5-mst-13.2.git

[patch utils/perlbug] subject header setting problem
Message-ID: <Pine.LNX.4.44.0203262107310.2288-100000@hope.stason.org>

p4raw-id: //depot/perl@15515
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index de848ae..27fde11 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -137,7 +137,7 @@ my $Version = "1.33";
 
 my( $file, $usefile, $cc, $address, $perlbug, $testaddress, $filename,
     $subject, $from, $verbose, $ed, $outfile, $Is_MacOS, $category, $severity,
-    $fh, $me, $Is_MSWin32, $Is_VMS, $msg, $body, $andcc, %REP, $ok);
+    $fh, $me, $Is_MSWin32, $Is_Linux, $Is_VMS, $msg, $body, $andcc, %REP, $ok);
 
 my $perl_version = $^V ? sprintf("v%vd", $^V) : $];
 
@@ -209,6 +209,7 @@ sub Init {
 
     $Is_MSWin32 = $^O eq 'MSWin32';
     $Is_VMS = $^O eq 'VMS';
+    $Is_Linux = lc($^O) eq 'linux';
     $Is_MacOS = $^O eq 'MacOS';
 
     @ARGV = split m/\s+/,
@@ -822,7 +823,11 @@ sub Send {
 	open SENDMAIL, ">$outfile" or die "Couldn't open '$outfile': $!\n";
 	goto sendout;
     }
-    if ($::HaveSend) {
+
+    # on linux certain mail implementations won't accept the subject
+    # as "~s subject" and thus the Subject header will be corrupted
+    # so don't use Mail::Send to be safe
+    if ($::HaveSend && !$Is_Linux) {
 	$msg = new Mail::Send Subject => $subject, To => $address;
 	$msg->cc($cc) if $cc;
 	$msg->add("Reply-To",$from) if $from;