|
version 1.49, 2004/08/10 19:16:40
|
version 1.50, 2005/02/26 06:10:30
|
|
Line 160 sub dump {
|
Line 160 sub dump {
|
| if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
| my $line; |
my $line; |
| if ($safeeval->reval('defined($'.$symname.')')) { |
if ($safeeval->reval('defined($'.$symname.')')) { |
| $line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
if ($symname =~ /^\w/) { |
| |
$line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
| |
} |
| } |
} |
| if ($safeeval->reval('defined(@'.$symname.')')) { |
if ($safeeval->reval('defined(@'.$symname.')')) { |
| $line.='@'.$symname.'=('. |
$line.='@'.$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