[WWcvs] pg: Added commment

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Added commment

Modified Files:
--------------
    pg/lib:
        AnswerHash.pm

Revision Data
-------------
Index: AnswerHash.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/AnswerHash.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/AnswerHash.pm -Llib/AnswerHash.pm -u -r1.6 -r1.7
--- lib/AnswerHash.pm
+++ lib/AnswerHash.pm
@@ -504,7 +504,7 @@
 	} elsif (ref($input) eq 'ARRAY' ) {  # sometimes the answer may already be decoded into an array.   
 	   	my @input = @$input;
 	   	$self-> {rh_ans} -> {original_student_ans} = " ( " .join(", ",@input) . " ) ";
-		$input = \@input;
+		$input = \@input;  #make a local copy
 		$self-> {rh_ans} -> {student_ans} = $input;
 	} else {