summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 19:47:07 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 19:47:07 +0000
commit1d8f4f1511ffe1a3e499e089b126397f1d9d0af4 (patch)
tree069092c0ab2360176527cc8b283fa82d7e211923
parent9d463a9ffec7bad83abee827d6fa59c28cb5d788 (diff)
downloaddrakwizard-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-xftp_wizard/Proftpd.pm6
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 {