some old databases may have 'hanging' cust_credit records; we don't want to abort the upgrade because of that, just warn

1 files changed, 2 insertions, 1 deletions

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 4c94e1578..6cbe1d046 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -458,7 +458,8 @@ sub _upgrade_data {  # class method
         $cust_credit->setfield('reason', '');
         my $error = $cust_credit->replace;
 
-        die "error inserting $self into database: $error\n"
+        warn "*** WARNING: error replacing reason in $self ".
+             $self->crednum. ": $error ***\n"
           if $error;
       }
     }