don't do (as much) useless work on upgrade

1 files changed, 1 insertions, 0 deletions

diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm
index 358dfdc3d..ab8113381 100644
--- a/FS/FS/cust_pay.pm
+++ b/FS/FS/cust_pay.pm
@@ -699,6 +699,7 @@ sub _upgrade_data {  #class method
 
     my $h_cust_pay = $cust_pay->h_search('insert');
     if ( $h_cust_pay ) {
+      next if $cust_pay->otaker eq $h_cust_pay->history_user;
       $cust_pay->otaker($h_cust_pay->history_user);
     } else {
       $cust_pay->otaker('legacy');