Fix to quotemeta variables in glob

webmin · Nov 6, 2023 · 5e1c270 · 5e1c270
1 parent 0cb9bba
commit 5e1c270
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mailbox/mailbox-lib.pl b/mailbox/mailbox-lib.pl
@@ -1058,7 +1058,7 @@ sub delete_folder
 # Delete mbox or Maildir index
 if ($folder->{'type'} == 0) {
 	my $ifile = &user_index_file($folder->{'file'});
-	unlink(glob("$ifile.*"), $ifile);
+	unlink(glob("\Q$ifile\E.*"), $ifile);
 	}
 elsif ($folder->{'type'} == 1) {
 	my $cachefile = &get_maildir_cachefile($folder->{'file'});
@@ -1067,7 +1067,7 @@ sub delete_folder
 
 # Delete sort index
 my $ifile = &folder_new_sort_index_file($folder);
-unlink(glob("$ifile.*"), $ifile);
+unlink(glob("\Q$ifile\E.*"), $ifile);
 
 # Delete sort direction file
 my $file = &folder_name($folder);