[LON-CAPA-cvs] cvs: loncom /xml Safe.pm

[albertel]

albertel		Sun Aug 31 21:13:59 2003 EDT

  Modified files:              
    /loncom/xml	Safe.pm 
  Log:
  - silly typo
  
  
Index: loncom/xml/Safe.pm
diff -u loncom/xml/Safe.pm:1.7 loncom/xml/Safe.pm:1.8
--- loncom/xml/Safe.pm:1.7	Fri Aug 29 23:25:34 2003
+++ loncom/xml/Safe.pm	Sun Aug 31 21:13:59 2003
@@ -208,7 +208,7 @@
 
 
 sub reval {
-    $Safe::evalsub;
+    undef($Safe::evalsub);
     {
 	my ($obj, $expr, $strict) = @_;
 	my $root = $obj->{Root};