fix fallout from is_tokenized optimizations preventing cards from running, RT#74657

[freeside.git] / FS / FS / cust_main.pm

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index cfe93a9..8cccd18 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1970,7 +1970,7 @@ sub check {
 
     my $cardtype = $self->paycardtype;
     if ( $payinfo =~ /^99\d{14}$/ ) {
-      $self->('is_tokenized', 'Y'); #so we don't try to do it again
+      $self->set('is_tokenized', 'Y'); #so we don't try to do it again
       if ( $self->paymask =~ /^\d+x/ ) {
         $cardtype = cardtype($self->paymask);
       } else {