diff options
| author | fukachan <fukachan> | 2001-01-24 06:11:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-24 06:11:31 +0000 |
| commit | e6a9111ca4122b24ebbc7d33bc2fcf607155a9db (patch) | |
| tree | df2a4e618111f9aa39c78e644c414836bb4eceb4 /fml/lib/Netlib/Utils.pm | |
| parent | c3c2868fe6a61ee3a5c7f3a6465b5ad1259869ea (diff) | |
| download | fml8-e6a9111ca4122b24ebbc7d33bc2fcf607155a9db.tar.gz fml8-e6a9111ca4122b24ebbc7d33bc2fcf607155a9db.tar.bz2 fml8-e6a9111ca4122b24ebbc7d33bc2fcf607155a9db.zip | |
canonicalize error handlings to error() error_reason() pair
Diffstat (limited to 'fml/lib/Netlib/Utils.pm')
| -rw-r--r-- | fml/lib/Netlib/Utils.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/Netlib/Utils.pm b/fml/lib/Netlib/Utils.pm index facda455..5bee5a3a 100644 --- a/fml/lib/Netlib/Utils.pm +++ b/fml/lib/Netlib/Utils.pm @@ -24,7 +24,7 @@ require Exporter; $LogFunctionPointer $SmtpLogFunctionPointer - _error_why + _error_reason error error_reset @@ -81,7 +81,7 @@ sub _smtplog } -sub _error_why +sub _error_reason { my ($self, $mesg) = @_; $self->{'_error_reason'} = $mesg; @@ -91,7 +91,7 @@ sub _error_why sub error_reason { my ($self, $mesg) = @_; - $self->_error_why($mesg); + $self->_error_reason($mesg); } |