version 1.64, 2015/06/23 02:52:20
|
version 1.65, 2019/11/10 20:40:59
|
Line 165 sub dump {
|
Line 165 sub dump {
|
my $dump=''; |
my $dump=''; |
foreach my $symname (sort(keys(%{$safeeval->varglob('main::')}))) { |
foreach my $symname (sort(keys(%{$safeeval->varglob('main::')}))) { |
if (($symname!~ /^(INC|SIG)/) && ($symname!~/\027/) && ($symname!~/\022/) && |
if (($symname!~ /^(INC|SIG)/) && ($symname!~/\027/) && ($symname!~/\022/) && |
($symname!~/^\_/) && ($symname!~/\:$/)) { |
($symname!~/^\_/) && ($symname!~/\:$/) && ($symname ne '!')) { |
my $line; |
my $line; |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($symname =~ /^\w/) { |
if ($symname =~ /^\w/) { |