From b6a81b49a2657dcdd5aaf67b5cc4d9d9656e5593 Mon Sep 17 00:00:00 2001
From: epg <>
Date: Tue, 22 Nov 2005 00:59:40 +0000
Subject: [PATCH] (find_mh_folder): Require $regexp to be a regular expression
 object (qr//) instead of a string.  Now it's up to the user whether it
 matches sensitive to case or not, or uses any other options.

---
 minc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/minc b/minc
index b469426..cbf2996 100755
--- a/minc
+++ b/minc
@@ -509,7 +509,7 @@ sub find_mh_folder {
                     foreach $contents (@{$headers{lc($header)}}) {
                         foreach $pair (@filter) {
                             ($regexp, $expression) = @$pair;
-                            if ($contents =~ /$regexp/i) {
+                            if ($contents =~ $regexp) {
                                 if (eval "\$result = \"$expression\"") {
                                     return $result;
                                 }
@@ -529,7 +529,7 @@ sub find_mh_folder {
             # Walk the filter's list of regexp/expression pairs.
             foreach $pair (@filter) {
                 ($regexp, $expression) = @$pair;
-                if ($contents =~ /$regexp/i) {
+                if ($contents =~ $regexp) {
                     if (eval "\$result = \"$expression\"") {
                         return $result;
                     }
-- 
2.56.0