- _risk_detect(): explicity set return value

[Business-OnlinePayment.git] / OnlinePayment.pm

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index 3f95cd1..c8f7438 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -83,13 +83,13 @@ sub _risk_detect {
        if ( $risk_transaction->fraud_score <= $self->maximum_fraud_score()) {
            return 1;
        } else {
-           $self->is_success(0);
            $self->error_message('Excessive risk from risk management');
        }
     } else {
        $self->error_message('Error in risk detection stage: ' .  $risk_transaction->error_message);
-       $self->is_success(0);
     }
+    $self->is_success(0);
+    return 0;
 }
 
 sub _pre_submit {
@@ -119,6 +119,7 @@ sub _pre_submit {
            }
        }
     }
+    return 1; # BUG?: success if fraud_detection module not found!
 }
 
 sub content {