[WWcvs] pg: Localize the $ans variable (rather than incorrectly using a closure).

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Localize the $ans variable (rather than incorrectly using a closure).

Modified Files:
--------------
    pg/lib/Value:
        AnswerChecker.pm

Revision Data
-------------
Index: AnswerChecker.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/AnswerChecker.pm,v
retrieving revision 1.113
retrieving revision 1.114
diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.113 -r1.114
--- lib/Value/AnswerChecker.pm
+++ lib/Value/AnswerChecker.pm
@@ -91,7 +91,7 @@
   );
   $ans->{debug} = $ans->{rh_ans}{debug};
   $ans->install_evaluator(sub {
-     $ans = shift;
+     my $ans = shift;
      $ans->{_filter_name} = "MathObjects answer checker";
      $ans->{correct_value}->cmp_parse($ans);
   });