X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_Common.pm;h=748bcae125fc2560c886470b9757df3b5c5242d4;hp=73658f67af979c642f66aeb10f52f57541b345c3;hb=8873189f93ad32da7f619959c51a35ed66e19b30;hpb=a16e54c819e3dd9a61f86042024405ab68a2c1ef

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index 73658f67a..748bcae12 100644
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -719,6 +719,8 @@ sub setx {
 sub part_svc {
   my $self = shift;
 
+  cluck 'svc_X->part_svc called' if $DEBUG;
+
   #get part_svc
   my $svcpart;
   if ( $self->get('svcpart') ) {