bugfix for non-catchall domains

diff --git a/FS/FS/part_export/domain_shellcommands.pm b/FS/FS/part_export/domain_shellcommands.pm
index 0edbab0..cf56033 100644 (file)
--- a/FS/FS/part_export/domain_shellcommands.pm
+++ b/FS/FS/part_export/domain_shellcommands.pm
@@ -35,6 +35,7 @@ sub _export_command {
     my $svc_acct = $svc_domain->catchall_svc_acct;
     ${$_} = $svc_acct->getfield($_) foreach qw(uid gid dir);
   } else {
+    no strict 'refs';
     ${$_} = '' foreach qw(uid gid dir);
   }