clarify RADIUS group upgrade error message, RT#13979

diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm
index 65a76e4..2f79f51 100644 (file)
--- a/FS/FS/part_svc.pm
+++ b/FS/FS/part_svc.pm
@@ -886,7 +886,8 @@ sub _upgrade_data {  #class method
                             'description' => $groupname,
                             };
             $error = $g->insert;
                             'description' => $groupname,
                             };
             $error = $g->insert;

-            die $error if $error;
+            die "Error inserting new radius_group for service definition group \"$groupname\": $error"
+              if $error;

         }
         push @groupnums, $g->groupnum;
     }
         }
         push @groupnums, $g->groupnum;
     }