From: epg <>
Date: Tue, 22 Nov 2005 00:46:36 +0000 (+0000)
Subject: (find_mh_folder): Stupid variable rename.
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/4666bb036a63ab1085d30399d73f9a07171e9066

(find_mh_folder): Stupid variable rename.
---

diff --git a/minc b/minc
index 9b7e280..b469426 100755
--- a/minc
+++ b/minc
@@ -488,7 +488,7 @@ sub find_mh_folder {
     my $header;
     my $contents;
     my $pair;
-    my $match;
+    my $regexp;
     my $expression;
     my $result;
 
@@ -508,8 +508,8 @@ sub find_mh_folder {
                 if ($header =~ /$MAGIC_TO_REGEX/i) {
                     foreach $contents (@{$headers{lc($header)}}) {
                         foreach $pair (@filter) {
-                            ($match, $expression) = @$pair;
-                            if ($contents =~ /$match/i) {
+                            ($regexp, $expression) = @$pair;
+                            if ($contents =~ /$regexp/i) {
                                 if (eval "\$result = \"$expression\"") {
                                     return $result;
                                 }
@@ -526,10 +526,10 @@ sub find_mh_folder {
         # Walk the list of message headers matching the filter's
         # specified header.
         foreach $contents (@{$headers{lc($header)}}) {
-            # Walk the filter's list of match/expression pairs.
+            # Walk the filter's list of regexp/expression pairs.
             foreach $pair (@filter) {
-                ($match, $expression) = @$pair;
-                if ($contents =~ /$match/i) {
+                ($regexp, $expression) = @$pair;
+                if ($contents =~ /$regexp/i) {
                     if (eval "\$result = \"$expression\"") {
                         return $result;
                     }