}
sub cp_rename {
- my ( $old_username, $new_username );
+ my ( $old_username, $new_username ) = @_;
my $app = new Net::APP ( $cp_server,
User => $cp_user,
}
sub cp_change {
- my ( $username, $password );
+ my ( $username, $password ) = @_;
my $app = new Net::APP ( $cp_server,
User => $cp_user,