X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_acct.pm;h=20db38b714538be807b2f3fd1c202a91d19f6c02;hp=2f327a3d3907383cf35d2614fcd8ca1de0133d8e;hb=ce4d2cc94fed25fc3b4aa85531022ae1e6eed778;hpb=4dbbbee37e78a035022974d19b3b80aeaead6049

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 2f327a3d3..20db38b71 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -809,7 +809,7 @@ sub icradius_rc_replace {
 }
 
 sub cp_rename {
-  my ( $old_username, $new_username );
+  my ( $old_username, $new_username ) = @_;
 
   my $app = new Net::APP ( $cp_server,
                         User     => $cp_user,
@@ -830,7 +830,7 @@ sub cp_rename {
 }
 
 sub cp_change {
-  my ( $username, $password );
+  my ( $username, $password ) = @_;
 
   my $app = new Net::APP ( $cp_server,
                         User     => $cp_user,