diff options
| author | Slaven Rezic <slaven@rezic.de> | 2003-01-30 20:03:41 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-12 03:01:32 +0000 |
| commit | 8843dda615fc6b4c500632a976c7348c4ff93f1f (patch) | |
| tree | 39ef1b460d7ac098fcb16711c2f51289e9be7275 /utils/perlbug.PL | |
| parent | e3feee4e511b83331e79ac04619b8ea753bb64aa (diff) | |
| download | perl-8843dda615fc6b4c500632a976c7348c4ff93f1f.tar.gz | |
perlbug (was: Re: [perl #20606] [no subject])
Message-ID: <87fzra7bwi.fsf@vran.herceg.de>
p4raw-id: //depot/perl@18698
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 4a1d3357a7..b9906f8acf 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -138,7 +138,8 @@ my $Version = "1.34"; my( $file, $usefile, $cc, $address, $perlbug, $testaddress, $filename, $messageid, $domain, $subject, $from, $verbose, $ed, $outfile, $Is_MacOS, $category, $severity, - $fh, $me, $Is_MSWin32, $Is_Linux, $Is_VMS, $msg, $body, $andcc, %REP, $ok); + $fh, $me, $Is_MSWin32, $Is_Linux, $Is_VMS, $msg, $body, $andcc, %REP, $ok, + $Is_OpenBSD); my $perl_version = $^V ? sprintf("v%vd", $^V) : $]; @@ -211,6 +212,7 @@ sub Init { $Is_MSWin32 = $^O eq 'MSWin32'; $Is_VMS = $^O eq 'VMS'; $Is_Linux = lc($^O) eq 'linux'; + $Is_OpenBSD = lc($^O) eq 'openbsd'; $Is_MacOS = $^O eq 'MacOS'; @ARGV = split m/\s+/, @@ -833,7 +835,7 @@ sub Send { # 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) { + if ($::HaveSend && !$Is_Linux && !$Is_OpenBSD) { $msg = new Mail::Send Subject => $subject, To => $address; $msg->cc($cc) if $cc; $msg->add("Reply-To",$from) if $from; |