|
version 1.60, 2008/11/24 18:55:01
|
version 1.61, 2012/12/18 18:27:43
|
|
Line 168 sub dump {
|
Line 168 sub dump {
|
| $line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
$line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
| } |
} |
| } |
} |
| if ($safeeval->reval('defined(@'.$symname.')')) { |
if ($safeeval->reval('@'.$symname)) { |
| $line.='@'.$symname.'=('. |
$line.='@'.$symname.'=('. |
| $safeeval->reval('join(",",@'.$symname.')').")"."\n"; |
$safeeval->reval('join(",",@'.$symname.')').")"."\n"; |
| } |
} |
| if ($safeeval->reval('defined(%'.$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 %'. |
![[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