diff options
| author | Philip Newton <pne@cpan.org> | 2000-11-22 15:25:53 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-22 20:59:59 +0000 |
| commit | 0154485940d6191adcfa079e1ddd517d4fb5d4e8 (patch) | |
| tree | bd56b602d98154ce1b8e2662fc06a9fc248cb53e /utils | |
| parent | b92372bcedd4cbc461492df99e312985a2027951 (diff) | |
| download | perl-0154485940d6191adcfa079e1ddd517d4fb5d4e8.tar.gz | |
[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
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 2033eee3fe..d323913eeb 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"; |