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);
}
}
sub ssh_cmd { #subroutine, not method
- use Net::SSH '0.07';
+ use Net::SSH '0.08';
&Net::SSH::ssh_cmd( { @_ } );
}