Bram <p5p@perl.wizbit.be> writes: > Did you consider Devel::Symdump? I hadn't heard of it, but it's no better than what I have: #### SCALAR #### if (defined $val && defined *ENTRY{SCALAR}) { $result->{$pack}{SCALARS}{$key}++; $gotone++; } SeanThread Previous | Thread Next