diff options
| -rw-r--r-- | FS/FS/svc_acct.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 139303b3c..ba8f32fdd 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -552,10 +552,11 @@ sub replace { qsearchs( 'svc_acct', { 'username' => $new->username, 'domsvc' => $new->domsvc, } ); -# { -# no warnings 'numeric'; #alas, a 5.006-ism + { + #no warnings 'numeric'; #alas, a 5.006-ism + local($^W) = 0; return "Can't change uid!" if $old->uid != $new->uid; -# } + } return "can't change username using Cyrus" if $cyrus_server && $old->username ne $new->username; @@ -963,7 +964,7 @@ sub ssh { =head1 VERSION -$Id: svc_acct.pm,v 1.58 2001-12-19 14:33:48 ivan Exp $ +$Id: svc_acct.pm,v 1.59 2001-12-20 02:07:04 ivan Exp $ =head1 BUGS |