|
version 1.53, 2005/11/08 18:59:03
|
version 1.54, 2005/11/15 20:50:26
|
|
Line 157 sub dump {
|
Line 157 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/) { |
![[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