- pass %data (processor data) to set_defaults for use in backends

[Business-OnlinePayment.git] / OnlinePayment.pm

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index f91ef1e..c383ba9 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -44,7 +44,7 @@ sub new {
     $self->build_subs(keys %fields);
 
     if($self->can("set_defaults")) {
-        $self->set_defaults();
+        $self->set_defaults(%data);
     }
 
     foreach(keys %data) {