X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fdomain_shellcommands.pm;h=d295eece0fcc9a6a9790dc05f057e9ab460444f7;hb=e7fc7ebf927a7ab7159ad3cc8fa1530d7ce22a5a;hp=0edbab0ddb751ff61ca138d14f690ffd558dbdda;hpb=21bc19b84183312dbb4087a33ad1ce5877088f82;p=freeside.git diff --git a/FS/FS/part_export/domain_shellcommands.pm b/FS/FS/part_export/domain_shellcommands.pm index 0edbab0dd..d295eece0 100644 --- 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); } @@ -96,7 +97,7 @@ sub shellcommands_queue { } sub ssh_cmd { #subroutine, not method - use Net::SSH '0.07'; + use Net::SSH '0.08'; &Net::SSH::ssh_cmd( { @_ } ); }