3 # translate control chars to ^X - Randal Schwartz
6 return \$_ if ref \$_ eq "GLOB";
7 s/([\001-\037\177])/'^'.pack('c',ord($1)^64)/eg;
11 ($package,@vars) = @_;
12 $package .= "::" unless $package =~ /::$/;
14 while ($package =~ /(\w+?::)/g){
17 while (($key,$val) = each(%stab)) {
19 next if @vars && !grep($key eq $_,@vars);
22 print "\$",&unctrl($key)," = '",&unctrl($entry),"'\n";
26 foreach $num ($[ .. $#entry) {
27 print " $num\t'",&unctrl($entry[$num]),"'\n";
31 if ($key ne "main::" && $key ne "DB::" && defined %entry
32 && !($package eq "dumpvar" and $key eq "stab")) {
34 foreach $key (sort keys(%entry)) {
35 print " $key\t'",&unctrl($entry{$key}),"'\n";