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 %'. |