Unicode support was added in Perl 5.6, use a less useful range in earlier versions...

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@11409 7612ce4b-ef26-0410-bec9-ea0150e637f0

diff --git a/config/conf.pl b/config/conf.pl
index 5dd713d837f29a6a9465a9516e368f1e0eba29f4..05f51c3ba12816c1782c7ef12ecd7f8f6f5a485a 100755 (executable)
--- a/config/conf.pl
+++ b/config/conf.pl
@@ -4603,8 +4603,14 @@ 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 a less useful range in earlier versions
+    if($] >= 5.6) {
+        my $reg = '[\x{80}-\x{FFFF}]';
+    } else {
+        my $reg = '[\x80-\xFF]';
+    }
     my $folder_name = shift(@_);
-    if ($folder_name =~ /[\x{80}-\x{FFFF}]/) {
+    if ($folder_name =~ /$reg/) {
         # check for 8bit. Using iso-10646 range, because x80-xFF range does not match unicode chars
         print "Folder name contains 8bit characters. Configuration utility requires\n";
         print "UTF7-IMAP encoded folder names.\n";