X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_pkg.pm;h=14555dd67c446418304d1ae6c2e39c6259acaa4c;hb=52f30b1d784918f63cd403fa03a20eacf9c1a471;hp=8bf98e64fd90b4b7e3fd5a283ae7485392a58352;hpb=36b4c4911bb63592edf8d5189f6d0af1d8da2b39;p=freeside.git

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index 8bf98e64f..14555dd67 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 } );
 }