clarify RADIUS group upgrade error message, RT#13979

diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm
index c155408..7e592bf 100644 (file)
--- a/FS/FS/part_svc.pm
+++ b/FS/FS/part_svc.pm
@@ -864,7 +864,8 @@ sub _upgrade_data {  #class method
                             '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;
     }