X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=OnlinePayment.pm;h=28deb6d045d815800aa699250f751ec614b61f1b;hb=417f1443bc69fd3b5c9bce17cfb618d0c7da486f;hp=871d5553c7d717ddf076f97c69c44e689b84c381;hpb=7d7c946f0041c06275a751dbdf1cb28bb9e2ae4d;p=Business-OnlinePayment.git

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index 871d555..28deb6d 100644
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -54,16 +54,16 @@ sub new {
         $self->$key($value);
     }
 
-    {
-	no strict 'refs';
-	no warnings 'redefine';
-	my $submit = qualify_to_ref('submit', $subclass);
-	$self->{_child_submit} = \&$submit;
-	*{"${subclass}::submit"} = sub {
-	    my $self = shift;
-	    $self->_pre_submit();
-
-	}
+    unless ( $subclass->can('submit') eq $class->can('submit') ) {
+        no strict 'refs';
+        no warnings 'redefine';
+        my $submit = qualify_to_ref('submit', $subclass);
+
+        $self->{_child_submit} = \&$submit;
+        *{"${subclass}::submit"} = sub {
+            my $self = shift;
+            $self->_pre_submit();
+        }
     }
 
     return $self;
@@ -328,7 +328,7 @@ Customer's email address.
 Credit card number (obviously not required for non-credit card
 transactions).
 
-=item * exp_date
+=item * expiration
 
 Credit card expiration (obviously not required for non-credit card
 transactions).