add debugging to _copy_skel to get some idea what's going on

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index f9d7be1..2617d10 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -499,6 +499,10 @@ sub _copy_skel {
     or return "$table has no primary key".
               " (or do you need to run dbdef-create?)";
 
+  warn "  _copy_skel: $table.$primary_key $sourceid to $destid for ".
+       join (', ', keys %child_tables). "\n"
+    if $DEBUG > 2;
+
   foreach my $child_table ( keys %child_tables ) {
 
     my $child_pkey = dbdef->table($child_table)->primary_key;