From e6a9111ca4122b24ebbc7d33bc2fcf607155a9db Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 24 Jan 2001 06:11:31 +0000
Subject: canonicalize error handlings to error() error_reason() pair

---
 fml/lib/Netlib/Utils.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'fml/lib/Netlib/Utils.pm')

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);
 }
 
 
-- 
cgit v1.2.1