From: epg <>
Date: Tue, 22 Nov 2005 00:59:40 +0000 (+0000)
Subject: (find_mh_folder): Require $regexp to be a regular expression object
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/b6a81b49a2657dcdd5aaf67b5cc4d9d9656e5593?ds=sidebyside;hp=4666bb036a63ab1085d30399d73f9a07171e9066

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

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