check error status of final $cdr->set_status just in case, RT#15535

diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm
index 31a9218..e74ed0e 100644 (file)
--- a/FS/FS/part_pkg/voip_cdr.pm
+++ b/FS/FS/part_pkg/voip_cdr.pm
@@ -412,7 +412,8 @@ sub calc_usage {
       # at this point we officially Do Not Care about the rating method
       $charges += $cdr->rated_price;
       $formatter->append($cdr);
-      $cdr->set_status('done');
+      my $error = $cdr->set_status('done');
+      die $error if $error;
     }
   }