[perl.git] branch blead, updated. v5.11.2-79-ge90b02b

[Rafael Garcia-Suarez]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/e90b02b98382872bd43097b9b146a9b00ca3171b?hp=17cc9359ea8ee1b546aa067b91362160e3c1e1ee>

- Log -----------------------------------------------------------------
commit e90b02b98382872bd43097b9b146a9b00ca3171b
Author: Tim Bunce (via RT) <perlbug-...@perl.org>
Date: Wed Nov 25 03:02:24 2009 -0800

perlbug reports "Message sent" even when it hasn't

perlbug doesn't check the return status of Mail::Send and so reports
"Message sent" even if it hasn't:
-----------------------------------------------------------------------

Summary of changes:
utils/perlbug.PL | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 8862a94..c015e25 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -1134,7 +1134,7 @@ sub _send_message_mailsend {
open(REP, "<$filename") or die "Couldn't open '$filename': $!\n";
while (<REP>) { print $fh $_ }
close(REP) or die "Error closing $filename: $!";
- $fh->close;
+ $fh->close or die "Error sending mail: $!";

print "\nMessage sent.\n";
}

--
Perl5 Master Repository