version 1.51, 2005/02/28 22:17:09
|
version 1.53, 2005/11/08 18:59:03
|
Line 157 sub dump {
|
Line 157 sub dump {
|
my ($target,$safeeval)=@_; |
my ($target,$safeeval)=@_; |
my $dump=''; |
my $dump=''; |
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
if (($symname!~/\027/) && ($symname!~/^\_/) && ($symname!~/\:$/)) { |
my $line; |
my $line; |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($symname =~ /^\w/) { |
if ($symname =~ /^\w/) { |
Line 172 sub dump {
|
Line 172 sub dump {
|
$line.='%'.$symname.'=('; |
$line.='%'.$symname.'=('; |
$line.=$safeeval->reval('join(",",map { $_."=>".$'. |
$line.=$safeeval->reval('join(",",map { $_."=>".$'. |
$symname.'{$_} } sort keys %'. |
$symname.'{$_} } sort keys %'. |
$symname.')').")"."\n" |
$symname.')').")"."\n"; |
} |
} |
if ($line ne '') { |
if ($line ne '') { |
$line=&HTML::Entities::encode($line,'<>&"'); |
$line=&HTML::Entities::encode($line,'<>&"'); |
$line=~s|\n|<br />|; |
$line=~s|\n|<br />|g; |
$dump.=$line; |
$dump.=$line; |
} |
} |
} |
} |