loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.62, 2013/12/04 15:57:15	version 1.65, 2019/11/10 20:40:59
Line 163 sub run {	Line 163 sub run {
sub dump {	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/) {
Line 179 sub dump {	Line 179 sub dump {
if ($safeeval->reval('%'.$symname)) {	if ($safeeval->reval('%'.$symname)) {
$line.='%'.$symname.'=(';	$line.='%'.$symname.'=(';
$line.=$safeeval->reval('join(",",map { $_."=>".$'.	$line.=$safeeval->reval('join(",",map { $_."=>".$'.
$symname.'{$_} } sort keys %'.	$symname.'{$_} } sort(keys(%'.
$symname.')').")"."\n";	$symname.')))').")"."\n";
}	}
if ($line ne '') {	if ($line ne '') {
$line=&HTML::Entities::encode($line,'<>&"');	$line=&HTML::Entities::encode($line,'<>&"');