summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorTim Bunce (via RT) <perlbug-followup@perl.org>2009-11-25 03:02:24 -0800
committerRafael Garcia-Suarez <rgs@consttype.org>2009-11-26 09:42:40 +0100
commite90b02b98382872bd43097b9b146a9b00ca3171b (patch)
tree3b24d003573652caf89f40aeb62aa285278e2bf1 /utils
parent17cc9359ea8ee1b546aa067b91362160e3c1e1ee (diff)
downloadperl-e90b02b98382872bd43097b9b146a9b00ca3171b.tar.gz
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:
Diffstat (limited to 'utils')
-rw-r--r--utils/perlbug.PL2
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 8862a9447c..c015e25510 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";
}