diff options
author | ivan <ivan> | 2001-12-19 14:30:12 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-12-19 14:30:12 +0000 |
commit | 4a7a96cd297d390d7d58aafed554672ab949143e (patch) | |
tree | e1fda8552ec6e478dc0c7b76539640747286461b | |
parent | c980083d90ee8796d8241686390048aee6d4fff9 (diff) |
surpress warnings
-rw-r--r-- | FS/FS/svc_acct.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 382987e1b..11f09a116 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -552,8 +552,10 @@ sub replace { qsearchs( 'svc_acct', { 'username' => $new->username, 'domsvc' => $new->domsvc, } ); - - return "Can't change uid!" if $old->uid != $new->uid; + { + no warnings 'numeric'; + 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; @@ -961,7 +963,7 @@ sub ssh { =head1 VERSION -$Id: svc_acct.pm,v 1.56 2001-12-18 01:49:35 ivan Exp $ +$Id: svc_acct.pm,v 1.57 2001-12-19 14:30:12 ivan Exp $ =head1 BUGS |