From 1d8f4f1511ffe1a3e499e089b126397f1d9d0af4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 Jan 2004 19:47:07 +0000 Subject: (true) make it look like real perl --- ftp_wizard/Proftpd.pm | 6 +----- 1 file changed, 1 insertion(+), 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 { -- cgit v1.2.1