develooper Front page | perl.perl5.porters | Postings from January 2003

perlbug (was: Re: [perl #20606] [no subject])

Thread Previous | Thread Next
From:
Slaven Rezic
Date:
January 30, 2003 10:06
Subject:
perlbug (was: Re: [perl #20606] [no subject])
Message ID:
87fzra7bwi.fsf@vran.herceg.de
"Todd C. Miller" (via RT) <perlbug-followup@perl.org> writes:

> # New Ticket Created by  "Todd C. Miller" 
> # Please include the string:  [perl #20606]
> # in the subject line of all future correspondence about this issue. 
> # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=20606 >
> 
> 
> ~s OpenBSD hints file update
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
There seems to be another special case for the Mail::Send handling in
perlbug. The patch below fixes this, but maybe it's better to check
if the installed Mail::Mailer is current --- the "mail" program is not
used anymore by Mail::Mailer.

Regards,
	Slaven

--- bleedperl/utils/perlbug.PL	Wed Jul 17 18:11:28 2002
+++ bleedperl3/utils/perlbug.PL	Thu Jan 30 18:58:45 2003
@@ -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;

-- 
Slaven Rezic - slaven@rezic.de

    tkrevdiff - graphical display of diffs between revisions (RCS or CVS)
    http://ptktools.sourceforge.net/#tkrevdiff

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About