From 8873189f93ad32da7f619959c51a35ed66e19b30 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 25 Apr 2016 09:55:45 -0700
Subject: [PATCH] debug

---
 FS/FS/svc_Common.pm | 2 ++
 1 file changed, 2 insertions(+)

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') ) {
-- 
2.11.0