diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-04-25 09:55:45 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-04-25 09:55:45 -0700 |
| commit | 8873189f93ad32da7f619959c51a35ed66e19b30 (patch) | |
| tree | 51f503aea601c9d31afe37e3e2bb2cb7036a445e /FS/FS/svc_Common.pm | |
| parent | a16e54c819e3dd9a61f86042024405ab68a2c1ef (diff) | |
debug
Diffstat (limited to 'FS/FS/svc_Common.pm')
| -rw-r--r-- | FS/FS/svc_Common.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index 73658f6..748bcae 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') ) { |