diff options
| author | ivan <ivan> | 2001-12-20 02:07:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-12-20 02:07:04 +0000 |
| commit | 80fad8cc255a422c562e0b4f040bfce91f074adc (patch) | |
| tree | 05388510141d7f4add2725f1953ed0b3f0f1db27 /FS | |
| parent | b1c7bf3ab64205054c5b677fa55d21049e7a4d26 (diff) | |
quiet warnings
Diffstat (limited to 'FS')
| -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 |