From 79d6c7de91b50df4bea46c1bd9433440164faeaf Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 2 Jul 2010 18:56:28 +0000
Subject: [PATCH] more debugging for weird bill lockup, RT#8993

---
 FS/FS/cust_main.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index e98f70012..293606396 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2758,8 +2758,14 @@ sub bill {
   local $FS::UID::AutoCommit = 0;
   my $dbh = dbh;
 
+  warn "$me acquiring lock on customer ". $self->custnum. "\n"
+    if $DEBUG;
+
   $self->select_for_update; #mutex
 
+  warn "$me running pre-bill events for customer ". $self->custnum. "\n"
+    if $DEBUG;
+
   my $error = $self->do_cust_event(
     'debug'      => ( $options{'debug'} || 0 ),
     'time'       => $invoice_time,
@@ -2771,6 +2777,9 @@ sub bill {
     return $error;
   }
 
+  warn "$me done running pre-bill events for customer ". $self->custnum. "\n"
+    if $DEBUG;
+
   #keep auto-charge and non-auto-charge line items separate
   my @passes = ( '', 'no_auto' );
 
-- 
2.11.0