[freeside-commits] branch FREESIDE_3_BRANCH updated. 52f30b1d784918f63cd403fa03a20eacf9c1a471

[Ivan]

The branch, FREESIDE_3_BRANCH has been updated
       via  52f30b1d784918f63cd403fa03a20eacf9c1a471 (commit)
      from  36b4c4911bb63592edf8d5189f6d0af1d8da2b39 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 52f30b1d784918f63cd403fa03a20eacf9c1a471
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Thu Jun 4 17:02:19 2015 -0700

    debugging excessive cust_pkg->cust_main calls, RT#28526

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index 8bf98e6..14555dd 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -3723,6 +3723,7 @@ Returns the parent customer object (see L<FS::cust_main>).
 
 sub cust_main {
   my $self = shift;
+  cluck 'cust_pkg->cust_main called' if $DEBUG;
   qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
 }
 

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/cust_pkg.pm |    1 +
 1 file changed, 1 insertion(+)