From: tokul <tokul@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Sun, 30 Jul 2006 17:39:15 +0000 (+0000)
Subject: perl compilation error was caused by curly brackets.
X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=commitdiff_plain;h=ef00a16bcbc21c78a6fdf9d0e10a407bad07ad82

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
---

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...";