loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.53, 2005/11/08 18:59:03	version 1.55, 2006/01/11 08:52:58
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression	Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
my $__LC__prefix;	my $__LC__prefix;
my $__LC__result;	my $__LC__result;
while (1) {	while (1) {
	if ($__LC__a =~ m-^&(theta\|i\|pi\|rho)-) { last; }
{	{
use strict;	use strict;
no strict "vars";	no strict "vars";
Line 157 sub dump {	Line 158 sub dump {
my ($target,$safeeval)=@_;	my ($target,$safeeval)=@_;
my $dump='';	my $dump='';
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {	foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
if (($symname!~/\027/) && ($symname!~/^\_/) && ($symname!~/\:$/)) {	if (($symname!~ /^(INC\|SIG)/) && ($symname!~/\027/) &&
	($symname!~/^\_/) && ($symname!~/\:$/)) {
my $line;	my $line;
if ($safeeval->reval('defined($'.$symname.')')) {	if ($safeeval->reval('defined($'.$symname.')')) {
if ($symname =~ /^\w/) {	if ($symname =~ /^\w/) {