|
version 1.19, 2001/10/05 22:27:41
|
version 1.20, 2001/11/07 22:29:17
|
|
Line 71 sub dump {
|
Line 71 sub dump {
|
| my $dump=''; |
my $dump=''; |
| foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
| if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
| if ($safeeval->reval('defined $'.$symname)) { |
if ($safeeval->reval('defined($'.$symname.')')) { |
| $dump.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
$dump.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
| } |
} |
| if ($safeeval->reval('defined @'.$symname)) { |
if ($safeeval->reval('defined @'.$symname)) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to run.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml