fix replace script, RT#40031

diff --git a/bin/svc.replace b/bin/svc.replace
index ad9cc43..a9ceada 100644 (file)
--- a/bin/svc.replace
+++ b/bin/svc.replace
@@ -6,7 +6,7 @@ use FS::Record qw( qsearch );
 use FS::cust_svc;
 
 my $user = shift or die &usage;
-adminsuidsetup;
+adminsuidsetup $user;
 
 my $svcpart = shift or die &usage;