version 1.18, 2001/07/20 21:19:38
|
version 1.19, 2001/10/05 22:27:41
|
Line 66 sub run {
|
Line 66 sub run {
|
} |
} |
} |
} |
|
|
|
sub dump { |
|
my ($target,$safeeval)=@_; |
|
my $dump=''; |
|
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
|
if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
|
if ($safeeval->reval('defined $'.$symname)) { |
|
$dump.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
|
} |
|
if ($safeeval->reval('defined @'.$symname)) { |
|
$dump.='@'.$symname.'=('. |
|
$safeeval->reval('join(",",@'.$symname.')').")\n"; |
|
} |
|
if ($safeeval->reval('defined %'.$symname)) { |
|
$dump.='%'.$symname.'=('; |
|
$dump.=$safeeval->reval('join(",",map { $_."=>".$'. |
|
$symname.'{$_} } sort keys %'. |
|
$symname.')').")\n"; |
|
} |
|
} |
|
} |
|
$dump.=''; |
|
return $dump; |
|
} |
|
|
1; |
1; |
__END__; |
__END__; |