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.'=('. |