From: Philip Newton <pne@cpan.org>
Date: Wed, 22 Nov 2000 14:25:53 +0000 (+0100)
Subject: [ID 20001122.002] [PATCH 5.7.0@7795] two small patches to perlbug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0154485940d6191adcfa079e1ddd517d4fb5d4e8;p=p5sagit%2Fp5-mst-13.2.git

[ID 20001122.002] [PATCH 5.7.0@7795] two small patches to perlbug
Message-Id: <3A1BD771.25462.1939FAD@localhost>

Be case-understanding also on 's', and use the -oi of sendmail
not to terminate the transmission on a lone '.'.

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

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 2033eee..d323913 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -776,7 +776,7 @@ EOF
 		Edit();
 	    } elsif ($action =~ /^[qc]/i) { # <C>ancel, <Q>uit
 		Cancel();
-	    } elsif ($action =~ /^s/) {
+	    } elsif ($action =~ /^s/i) {
 		paraprint <<EOF;
 I'm sorry, but I didn't understand that. Please type "send" or "save".
 EOF
@@ -844,7 +844,7 @@ report. We apologize for the inconvenience.
 So you may attempt to find some way of sending your message, it has
 been left in the file `$filename'.
 EOF
-	open(SENDMAIL, "|$sendmail -t") || die "'|$sendmail -t' failed: $!";
+	open(SENDMAIL, "|$sendmail -t -oi") || die "'|$sendmail -t -oi' failed: $!";
 sendout:
 	print SENDMAIL "To: $address\n";
 	print SENDMAIL "Subject: $subject\n";