From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 10 Aug 2008 04:45:02 +0000 (-0700)
Subject:  * fix utter madness in checkmatch
X-Git-Tag: release/2.6.0~482^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c6e762094f52f77d9d9b27ceb8b5cf7296b4a88d;p=debbugs.git

 * fix utter madness in checkmatch
---

diff --git a/scripts/service b/scripts/service
index 52540ef..39af608 100755
--- a/scripts/service
+++ b/scripts/service
@@ -1466,12 +1466,12 @@ sub sendhelp {
 #sub unimplemented {
 #    print {$transcript} "Sorry, command $_[0] not yet implemented.\n\n";
 #}
-
+our %checkmatch_values;
 sub checkmatch {
     my ($string,$mvarname,$svarvalue,@newmergelist) = @_;
     my ($mvarvalue);
     if (@newmergelist) {
-        eval "\$mvarvalue= \$$mvarname";
+	$mvarvalue = $checkmatch_values{$mvarname};
         print {$transcript} "D| checkmatch \`$string' /$mvarname/$mvarvalue/$svarvalue/\n"
             if $dl;
         $mismatch .=
@@ -1482,7 +1482,7 @@ sub checkmatch {
     } else {
 	 print {$transcript} "D| setupmatch \`$string' /$mvarname/$svarvalue/\n"
 	      if $dl;
-        eval "\$$mvarname= \$svarvalue";
+	 $checkmatch_values{$mvarname} = $svarvalue;
     }
 }