Delete error_message() if transaction was successful

1 files changed, 6 insertions, 3 deletions

diff --git a/InternetSecure.pm b/InternetSecure.pm
index e3a21e5..f2811ab 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -260,6 +260,9 @@ sub parse_response {
 	
 	# Completely undocumented field that sometimes override <Verbiage>
 	$self->error_message($response->{Error}) if $response->{Error};
+
+	# Delete error_message if transaction was successful
+	$self->error_message(undef) if $self->is_success;
 	
 	$self->card_type(CARD_TYPES->{$self->card_type});
 	
@@ -469,9 +472,9 @@ Response code returned by InternetSecure.
 
 =item error_message()
 
-Text description of the response code.  (Do not rely on this to check for
-errors, as a description will also be returned for successful transactions.
-Use B<is_success>() instead.)
+Error message if the transaction was unsuccessful; C<undef> otherwise.  (You
+should not rely on this to test whether a transaction was successful; use
+B<is_success>() instead.)
 
 =item receipt_number()