loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.63, 2014/12/15 17:45:16	version 1.66, 2020/03/12 20:20:13
Line 41 while (!$_LONCAPA_INTERNAL_oldexpression	Line 41 while (!$_LONCAPA_INTERNAL_oldexpression
# or hash dereferences {}	# or hash dereferences {}
# the ^$ and ^& is because we do this iteratively	# the ^$ and ^& is because we do this iteratively
# $a[$c] becomes $a[3] which then evaluates	# $a[$c] becomes $a[3] which then evaluates
([\[\{][^\$\&\]\}]+[\]\}])*?	((?:[\[\{][^\$\&\]\}]+[\]\}])+\|)
# $3 is the list of arguments	# $3 is the list of arguments
($[^\$\&$]+\))*?	($[^\$\&$]+\))*?
# only match the above if there is not { [ ( coming up	# only match the above if there is not { [ ( coming up
Line 164 sub dump {	Line 164 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!~ /^(INC\|SIG)/) && ($symname!~/\027/) &&	if (($symname!~ /^(INC\|SIG)/) && ($symname!~/\027/) && ($symname!~/\022/) &&
($symname!~/^\_/) && ($symname!~/\:$/)) {	($symname!~/^\_/) && ($symname!~/\:$/) && ($symname ne '!')) {
my $line;	my $line;
if ($safeeval->reval('defined($'.$symname.')')) {	if ($safeeval->reval('defined($'.$symname.')')) {
if ($symname =~ /^\w/) {	if ($symname =~ /^\w/) {