From ef00a16bcbc21c78a6fdf9d0e10a407bad07ad82 Mon Sep 17 00:00:00 2001 From: tokul Date: Sun, 30 Jul 2006 17:39:15 +0000 Subject: [PATCH] perl compilation error was caused by curly brackets. tested 5.8, 5.6 and 5.004 git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@11449 7612ce4b-ef26-0410-bec9-ea0150e637f0 --- config/conf.pl | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/config/conf.pl b/config/conf.pl index 204116c9..c88aadbe 100755 --- a/config/conf.pl +++ b/config/conf.pl @@ -4607,15 +4607,9 @@ sub clear_screen() { # checks IMAP mailbox name. Refuses to accept 8bit folders # returns 0 (folder name is not correct) or 1 (folder name is correct) sub check_imap_folder($) { - # Unicode support was added in Perl 5.6, use simple 8bit range in earlier versions - if($] >= 5.6) { - # Using iso-10646 range, because x80-xFF range does not match unicode chars - my $reg = '[\x{80}-\x{FFFF}]'; - } else { - my $reg = '[\x80-\xFF]'; - } my $folder_name = shift(@_); - if ($folder_name =~ /$reg/) { + + if ($folder_name =~ /[\x80-\xFFFF]/) { print "Folder name contains 8bit characters. Configuration utility requires\n"; print "UTF7-IMAP encoded folder names.\n"; print "Press any key to continue..."; -- 2.25.1