diff options
| author | fukachan <fukachan> | 2002-06-01 05:09:23 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-06-01 05:09:23 +0000 |
| commit | 65eb6df28e7506613c519744ef2977fbc06b6791 (patch) | |
| tree | cb96ae23fa4549c25661136f26ad830a6996b6b2 /fml/lib/Mail | |
| parent | b59bd780d2e1c055cb03dc26c8fd2a321242a0f3 (diff) | |
| download | fml8-65eb6df28e7506613c519744ef2977fbc06b6791.tar.gz fml8-65eb6df28e7506613c519744ef2977fbc06b6791.tar.bz2 fml8-65eb6df28e7506613c519744ef2977fbc06b6791.zip | |
nuke white spaces \s*$
Diffstat (limited to 'fml/lib/Mail')
| -rw-r--r-- | fml/lib/Mail/Delivery/SMTP.pm | 4 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Utils.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/fml/lib/Mail/Delivery/SMTP.pm b/fml/lib/Mail/Delivery/SMTP.pm index 15e0d3df..d41606d8 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.13 2002/01/27 13:11:57 fukachan Exp $ +# $FML: SMTP.pm,v 1.14 2002/05/27 11:20:02 fukachan Exp $ # @@ -760,7 +760,7 @@ sub _send_body_to_mta $msg->set_log_function( $SmtpLogFunctionPointer ); $msg->set_print_mode('smtp'); $msg->print($socket); - + if (defined $self->{ _smtp_log_handle }) { $msg->print( $self->{ _smtp_log_handle }); } diff --git a/fml/lib/Mail/Delivery/Utils.pm b/fml/lib/Mail/Delivery/Utils.pm index 8c872383..78583b1a 100644 --- a/fml/lib/Mail/Delivery/Utils.pm +++ b/fml/lib/Mail/Delivery/Utils.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: Utils.pm,v 1.5 2002/01/13 07:28:54 fukachan Exp $ +# $FML: Utils.pm,v 1.6 2002/05/27 11:20:02 fukachan Exp $ # package Mail::Delivery::Utils; @@ -125,7 +125,7 @@ sub smtplog { my ($self, $buf) = @_; - if (defined $buf) { + if (defined $buf) { if (defined $self->{ _smtp_log_handle }) { my $wh = $self->{ _smtp_log_handle }; print $wh $buf; |