diff options
| author | fukachan <fukachan> | 2006-04-02 06:55:44 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-04-02 06:55:44 +0000 |
| commit | 25c87b3d2d608af2d549b1f6e1a43dfc22cddd00 (patch) | |
| tree | 4a4e0af8d93310167e555784024a1085e42c86ba /fml | |
| parent | 376c2a821917fca02e7aab4d6a568d24b94384e4 (diff) | |
| download | fml8-25c87b3d2d608af2d549b1f6e1a43dfc22cddd00.tar.gz fml8-25c87b3d2d608af2d549b1f6e1a43dfc22cddd00.tar.bz2 fml8-25c87b3d2d608af2d549b1f6e1a43dfc22cddd00.zip | |
fix error handling (do not trap normal condition)
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/Mail/Delivery/SMTP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/Mail/Delivery/SMTP.pm b/fml/lib/Mail/Delivery/SMTP.pm index f4af65d5..1e8badea 100644 --- a/fml/lib/Mail/Delivery/SMTP.pm +++ b/fml/lib/Mail/Delivery/SMTP.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: SMTP.pm,v 1.38 2006/03/25 03:50:07 fukachan Exp $ +# $FML: SMTP.pm,v 1.39 2006/04/02 06:28:28 fukachan Exp $ # @@ -259,7 +259,7 @@ sub _read_reply $self->logerror("smtp reply for \"$command\" is timeout"); $self->set_error("smtp reply for \"$command\" is timeout"); } - else { + elsif ($@) { $self->logerror($@); $self->set_error($@); } |