--- loncom/xml/run.pm 2005/02/28 22:17:09 1.51
+++ loncom/xml/run.pm 2006/01/11 08:52:58 1.55
@@ -1,6 +1,6 @@
package Apache::run;
#
-# $Id: run.pm,v 1.51 2005/02/28 22:17:09 albertel Exp $
+# $Id: run.pm,v 1.55 2006/01/11 08:52:58 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,6 +50,7 @@ while (!$_LONCAPA_INTERNAL_oldexpression
my $__LC__prefix;
my $__LC__result;
while (1) {
+ if ($__LC__a =~ m-^&(theta|i|pi|rho)-) { last; }
{
use strict;
no strict "vars";
@@ -157,7 +158,8 @@ sub dump {
my ($target,$safeeval)=@_;
my $dump='';
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
- if (($symname!~/^\_/) && ($symname!~/\:$/)) {
+ if (($symname!~ /^(INC|SIG)/) && ($symname!~/\027/) &&
+ ($symname!~/^\_/) && ($symname!~/\:$/)) {
my $line;
if ($safeeval->reval('defined($'.$symname.')')) {
if ($symname =~ /^\w/) {
@@ -172,11 +174,11 @@ sub dump {
$line.='%'.$symname.'=(';
$line.=$safeeval->reval('join(",",map { $_."=>".$'.
$symname.'{$_} } sort keys %'.
- $symname.')').")"."\n"
- }
+ $symname.')').")"."\n";
+ }
if ($line ne '') {
$line=&HTML::Entities::encode($line,'<>&"');
- $line=~s|\n|
|;
+ $line=~s|\n|
|g;
$dump.=$line;
}
}