(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 b4694265813442d8372a70ab56fa8629bbe15561..cbf2996d453c0e81bb1b3e74bfa69c493a8584e0 100755 (executable)
--- a/minc
+++ b/minc
@@ -509,7 +509,7 @@ sub find_mh_folder {
                     foreach $contents (@{$headers{lc($header)}}) {
                         foreach $pair (@filter) {
                             ($regexp, $expression) = @$pair;
                     foreach $contents (@{$headers{lc($header)}}) {
                         foreach $pair (@filter) {
                             ($regexp, $expression) = @$pair;

-                            if ($contents =~ /$regexp/i) {
+                            if ($contents =~ $regexp) {

                                 if (eval "\$result = \"$expression\"") {
                                     return $result;
                                 }
                                 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;
             # 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;
                     }
                     if (eval "\$result = \"$expression\"") {
                         return $result;
                     }