diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 19:47:07 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 19:47:07 +0000 |
| commit | 1d8f4f1511ffe1a3e499e089b126397f1d9d0af4 (patch) | |
| tree | 069092c0ab2360176527cc8b283fa82d7e211923 | |
| parent | 9d463a9ffec7bad83abee827d6fa59c28cb5d788 (diff) | |
| download | drakwizard-1d8f4f1511ffe1a3e499e089b126397f1d9d0af4.tar drakwizard-1d8f4f1511ffe1a3e499e089b126397f1d9d0af4.tar.gz drakwizard-1d8f4f1511ffe1a3e499e089b126397f1d9d0af4.tar.bz2 drakwizard-1d8f4f1511ffe1a3e499e089b126397f1d9d0af4.tar.xz drakwizard-1d8f4f1511ffe1a3e499e089b126397f1d9d0af4.zip | |
(true) make it look like real perl
| -rwxr-xr-x | ftp_wizard/Proftpd.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ftp_wizard/Proftpd.pm b/ftp_wizard/Proftpd.pm index ca8a466b..d50644ca 100755 --- a/ftp_wizard/Proftpd.pm +++ b/ftp_wizard/Proftpd.pm @@ -153,11 +153,7 @@ sub new { sub true { my ($val) = @_; - - $val eq "1" || $val eq "\'1\'" || $val eq "\"1\"" || - $val eq "true" || $val eq "\'true\'" || $val eq "\"true\"" and - return 1; - 0 + return member($val, qw(1 '1' "1" true 'true' "true")); } sub check_dir { |