fix the explicitly specified primary keys

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 07b2c11..e2bc95f 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -512,7 +512,7 @@ sub _copy_skel {
 
     my $child_table;
     my $child_pkey = '';
-    if ( $child_table =~ /^(\w+)\.(\w+)$/ ) {
+    if ( $child_table_def =~ /^(\w+)\.(\w+)$/ ) {
       ( $child_table, $child_pkey ) = ( $1, $2 );
     } else {
       $child_table = $child_table_def;