diff options
| author | Stas Bekman <stas@stason.org> | 2002-03-27 05:12:49 +0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-26 13:23:32 +0000 |
| commit | afc5e478890365dd7c9ba773c67c2fd1eec39103 (patch) | |
| tree | ce755efbc87827d1817dd9f62e239bfa9de83d7f /utils/perlbug.PL | |
| parent | 84c322f7f0258230b6665f84bd2ea4fc881d607b (diff) | |
| download | perl-afc5e478890365dd7c9ba773c67c2fd1eec39103.tar.gz | |
[patch utils/perlbug] subject header setting problem
Message-ID: <Pine.LNX.4.44.0203262107310.2288-100000@hope.stason.org>
p4raw-id: //depot/perl@15515
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index de848ae009..27fde11ac3 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; |